ue 
\ % 
* 


INTRODUCTION TO 


49 9 8. 2 


ADITYA P MATHUR 
KULBIR S ARORA 
N UDAY S REDDY 


Ме» ы oe sS O угу ғас oS 24-0 


М UDAY S Е 
University of Nor 


his “publication can be reproduced in any 
Ау any means withoüt the prior written 
› the publishers 


» 


п can be exported from India only by the 
Таға MeGraw-H111 Publishing Company Limited 

it Rajiv Beri 

: Ranjan Kaul 

Anson Babu 

] Graw2till Publishing Company Limited 

DN ew Delhi 110002 and printed at _ 

ia), C114 Industrial Area, Okhla, 
020 — i ACD 

` nis. м 2 v т” “. _ 

ОЕА Жы Эт Жау a 


e 
fe 
z 
ш 
a 
< 
а 
a 
2 
o 
o 
- 


PREFACE 


PASCAL is a language which is now over a decade old, In sp 
of stiff resistance from FORTRAN, COBOL and BASIC programm 
it has gained wide popularity. The new generation of gradu 9 
emerging from many universities prefer PASCAL due to its - 
gance and simplicity. Availability of PASCAL compilers on bo th. 
small and large computer systems has provided a much needed 
impetus to the popularity of PASCAL, | 
This text is meant for those desirous of learning comp 
programming through PASCAL. Perhaps, the book is best suit 
for the fresh mind. It fits well and has been used as a te 
(in the preliminary version) in a first course on programmin. 3 
offered at an early stage of university education, 
FORTRAN or BASIC programmers are advised to be pati 
before coming to any conclusions regarding PASCAL. We 
countered many programmers who reject PASCAL too soon f 
superficial reason or the other. The advantages that accrue 
` from the intelligent use of PASCAL are fast software develop- 
^^ ment, readability and maintainlity. Although PASCAL is not 
flawless, it is a major improvement over the early programmin 
languages such as FORTRAN, ; 
This book has been written with the assumption that t 
reader has no prior knowledge of computers. Chapter 1 t 
introduces computer organization. А description of various | 
"input and output devices used for communicating with. compu ers 
э ds presented in this chapter, Chapter 2 discusses number s 
_ ems and is intended to impart a basic knowledge of how com 
ters deal with numbers. This knowledge is useful in the 
ys aay working of programmers. 
' PASCAL is introduced іп Chapter 3 іп which only the 
9 Есау concepts are outlined. Concepts of data and ty r 
introduced in this chapter. How arithmetic ` expressions а: 
in various formulae can be coded into PASCAL is illustrated 


Кез 


A Chapter 4 introduces more PASCAL statements that a 
dred to write non-trivial programs, These statements, peu 
` control structures, aid in writing programs involving sel oper 
or repetitive computations. - PE "o 


2 Тһе basic concept of type, introduced in Chapter 3, 15 
elaborated іп Chapters 5 and 6, Scalar, subrange and record 
_ types are introduced in Chapter 5 followed by arrays in 
Chapter 6. 
УЖ After having gone through the first six chapters of the 
book, the reader is expected to have graduated to a level at 
which he (or she) can program simple problems (say those res- 
ilting in programs of about 100 lines). Solving more complex 
gramming problems without frustration requires the know- 
ledge of Procedures and Functions. These are tools, introdu- 
ced in Chapter 7, which aid a programmer in managing program 
omplexity, and writing readable and maintainable programs. 
| Not all data types have been covered till Chapter 7. 
remaining ones, namely sets, pointers, variant records 
les are accorded due consideration in Chapters 8 and 9 
ind their place towards the end of the book due to 
nfrequent usage or very special character (namely 


Finally, one PASCAL statement, the GOTO that was intent- 
1 left out in all the earlier chapters 15 cautiously 
ced in Chapter 10, 
ourse that uses this or any other book as a text on 
will have to rely on the services of a computer and a 
compiler Exercises given at the end of various chap- 
сап be solved and tested using this compiler. It may be 
that each PASCAL compiler has its own peculiarities. 
е an instructor lets the students make use of the compi- 
е 1s advised to know what these are and advise the stu- 
accordingly. For example, a feature that the language 
but the compiler does not should be told to the stu- 
If possible, ways of getting around it could also be 
ned (sprinkled with appropriate advice). 
ograms given in this book were tested on a DCM Data 
фә Spectrum/3 machine using а PASCAL interpreter, 
1 structor making use of this book, is requested to read 
ge titled " TO THE READER " before analysing any of 
programs. 
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TO THE READER 


Practice is a key element in any education in the basic 

principles of computer prograuming, We expect that the reader 

has access to a computer system that supports a PASCAL compi- 

ler. The exercises given at the end of various chapters and 

any other problems the reader chooses to program should be 

solved and tested on such a computer. ыш 
Тһе programs given in this book, numbered P X. Y D ME 


(x: Chapter number, y: program sequence number) месе tested p 
on an interactive system, Therefore, the reader may find i ae 
many statements in these programs which merely print out * 
"prompt" messages, For example, the statement: NI 
writeln ('ENTER ARRAY ELEMENTS PLEASE') ; m 
would display the prompt string given yithin quotes to guide "xd Де: 
the user (of the program). m 
If a program is designed for execution on a card-based 1 57 
system, such prompt messages are not required. Such programs | 7334 
would input data from cards prepared, and input to the comp- Жн 
uter, along with the program deck. E 
It is very likely that the PASCAL compiler being used by m 
the reader either does not support some of the language feat- Du 
ures or perhaps, supports a few additional ones. The reader idet 


will have no choice but to adjust the programs іп a few inst- e 
ances to be able to test them on the available compiler. For : 
example indexing of packed arrays was not supported by the 
compiler on whích the programs gíven in this book were tested. 
Thus, the reader will notice that though a program has been 
developed in the text with the type of a variable declared as 
packed array, the final program listing declares and uses it 
as an unpacked array. 
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INTRODUCTION TO COMPUTERS 


Problem-solving is an age-old activity. The development of 
computers provided an additional impetus to this activity. 
Problems that could not be solved earlier because of the || 
large amount of computation involved сап be sol ed with the = 2 
aid of these electronic devices-accurately and within reason- 
| able time. $ 
Ж Today people use computers in almost every walk of life. 
y: Thus, a large number of people have to either work with * 
computers directly or use the results produced by computers. | 
For example, a computer scientist along with his colleagues 
in a steel mill may fix up a computer for controlling the 
critical processes. He is a direct user of the computer. А 
typist in an organization may receive his monthly pay-slip 
or electricity bill produced by the computer. He is an 
indirect user. 

А basic understanding of the manner in which a computer 
works helps a person in today's world to appreciate the 
utility and limitations of this powerful tool. One may use 
this knowledge to suggest more uses of computers in order to 
reduce human drudgery and improve the quality of service. 

This chápter introduces the basics of computers. The 
questions answered in this chapter are: What is a computer? 
How does it function? How does one communicate with it?  . 

This chapter is intended to provide the fundamental Te 
knowledge required by anyone desirous of learning the subject JT 
of computer programming and жорға сауле of computers, Nt 


t 


1.1 ORGANIZATION OF A DIGITAL COMPUTER 


In order to specify the organization of any system*, we have 


4 * Ву а system we mean any collection of items bound together by well- 
dé defined relationships. In this sense, а digital computer is a system. 


FIG, 1.1 А modern minicomputer (Courtesy: DCM 
Data Products) 
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to list its constituents and bring out their interrelation- 
Ships. That is what we mean by the word 'organization'. In 
the current context, if we attempt at spccifying all the WAN 
constituents, and their relationships, of a digital computer, 
we will need a complete book. Hence, we shall restrict our 
attention to an overall organizaticn of a digital computer, 
we shall concentrate on only those components which are ; 2 
Present іп almost every digital computer іп some form or the | 
other. Bi [" 

Figure 1.1 is a photograph of a modern míini-computer. E 
Several devices can be seen in this picture, These devices 
and their functions are described below. 

In Fig. 1.2, the organization of a typical digital te 
computer (henceforth in this text we shall refer to a digi- 0 
tal computer by the word 'computer') is shown. Let us expl- 
ain the need and functions of each of the four boxes shown 


in this figure. 


Processing 
unit 


ары 


Jobs to be done 
by the computer 


Set of input Set of output 
devices devices 


Output from the 
computer 


FIG. 1.2 Overall organization of a digital aei 
computer ы 


А .omputer is designed to perform а variety of tasks. 
However, it is supposed to be doing vhat it is generally | 
desired to do by a human being. Hence arises the problem of 
communication between a human (or апу other object external 
to the computer) and the computer. A description of the 
task to be performed by the computer is 'fed' or given as 
'iuput' to it through ап input device. As a computer could 
have one or more input devices, we have box 1 in Fig. 1.2 - 
corresponding to a set of input devices. However, the des- | 
cription of a task may be fed through only опе input device. 
Later in this chapter we shall learn more about the input 
devices. & р 

Іп Fig. 1.1, a keyboard is the input device through 
which information can enter the computer. 
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If scmebody were to 'tell' us how to solve a quadratic 
equation, he would give a description of the method to solve 
1 a quadratic equation. This description would be fed to us 
| through our ears that act as input devices. However, where 
does this descripticn ро after being fed through the ears? 
Well, we all know that it resides in the storage cells of 
our brain. Analogously, the description that is fed to a 
computer through an input device, is stored in the memory 
of the computer. This memory is shown as box 2 in Fig. 1.2. 

At this point the reader may be wondering how long a descri- 
ption could be stored in the computer memory and how much 
time it would take to store it. These questions are answered 
after a few pages in this chapter itself. In Fig. l.l, sev- 
eral devices constitute the memory. The semiconductor memory, 
floppy disk, hard disk and magtapes in this figure are all 
devices that serve as the computer's memory. 

After the task description has been fed to the computer, 
it is the processing unit (box 3 in Fig. 1.2) that interprets 
this description. Thus, any operations that are to be per- 
formed in order to perform the given task (in other words || 
solve a problem) are executed by the processing unit. These | 
operations include the common arithmetic operations like add- | 
ition, subtraction, multiplication and division, There i 
rich variety of operations which the processing units of 
: day's computers can perform. In Fig. l.l,the processing 
x (not seen) is housed inside the box seen at the centre, 

Proceeding further with the explanation of Fig. “ЫШ 
we arrive at box 4 that represents a set of output devices 
associated with the computer. After all, the computer must 
let us know what are the answers to the problem we gave it 
for solution. An output device is used for this purpose, 
that is to display, in printed or any other form, the 'results' 
obtained after solving the problem. These results constitute 
what is generally known as the output from the computer, 

In Fig. 1.1, two output devices can be seen. Оп the far 
right is the line printer which is used for printing the 
computer output, In the centre can be seen the display unit 
on which information is displayed by the computer. 

Let us now summarize the detailed explanation given in 
the above paragraphs on computer organization through an 
example. Suppose that it is: desired to solve the quadratic 
equation ax^t bx + c = 0, for given values of a, b and c, 
using an available computer. The first step would be to pre- 
pare a set of detailed instructions for solving a quadratic 
equation for "ыле te o} a, b and c. This set of instruct- 


ions is what че have termed as the description of the task 


m 


Introduction to Computers 5 


to be performed by the computer, 

This description is then fed through an input device to 
the computer and stored in.the memory. It is then processed 
hy the processing unit. This implies that each instruction 
is interpreted by the Processing unit and the task required 
by the instruction, for example addition, performed. After 
all the instructions have been interpreted, the results, 
that is the roots of the quadratic equation in our example, 
could be printed on the output device, 


Information Flow within a Computer 


In explaining the organization of a computer with reference 
to Fig.1.2, we did not make any mention of the firm lines 
that are shown in this figure connecting various boxes. We 
Shall do so now. However, we shall now refer to Fig. 1.3 which 
is a more detailed version of Fig. 1.2. Note that in Fig. L235 
the processing unit has been Partitioned into a control unit 
and an arithmetic unit. All the other units comprising a com- 
puter work under the control of the control unit. The arith- 
metic unit, as the name implies, performs the desired arith- 
metic operations—addition, subtraction, multiplication and 
division, 

The information that flows within a computer can be class- 
ified into two groups, namely 

1. programs and data, and 

2. control information. 
Let us learn more about the nature and flow, within a computer 
of each of these two types of information. 


Programs and Data 


A program is what we have referred to earlier as the descri- 
ption of the task to be performed by a computer. Data refers 
to a set of values assumed by the variables in the program. 
For example, if we write а Program for solving the quadratic 
equation ах? + bx + с = 0, then the particular set of values 
of a, b and c form the data for this program. Thus, if we 
desire to get solved any particular quadratic equation by a 
computer, we need to feed in both the program and the data for 
this problem. Data also refers to the values that are generated 
as the instructions in the program are interpreted and executed 
by the processing unit. For example, in solving a quadratic 
equation, the value of (b? - ^ac) or the values of the roots 
of the equation also constitute data which, we say, has been 
generated by the program. 

Referring now to Fig. 1.3, we notice that Programs and data 
enter the computer through an input device and get stored in 
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the memory. The data which come in through the input device 
ace termed as input data. Data that are transferred from the 
memory to the output device are known as the output data or 
simply the output from a program. Whenever any arithmetic 
operation is to be performed, data have to be transferred 
from the memory to the arithmetic unit. Also, on completion 
of the arithmetic operation, the result of the operation may 
be transferred to the memory. Note that even programs go from 
the memory to an output device. Thus, a user can obtain the 
listing of the program entered via the input device, 


q 
E 
" Set of input Set of output 
А ы devices devices 
p L 


FIG. 1.3 Information flow in a digital computer | * 
Solid lines — program and data transfer 
Dotted lines — control information transfer 
Marked solid line — only data transfer 


Control Information 


Evidently, information transfer as described above will not 
take place at any arbitrary time. For example, data will not 
БО from the memory to the arithmetic unit at any arbitrary 
time while the computer is operating. It is only when a cer- 
„tain operation is to be performed that this transfer would 
wesbake-place.-Thus;there is а need to control the flow of inst- 
, Fuctions and. data. This implies that various devices wihin a 
computer are to behave in a controlled manner. This 16 preci- 
`. Sely what is accomplished by the control unit. 
Figure 1.3 shows the flow of control information from 
the control unit to various devices. The control information 
could be a signal to a device to start an operation, e.g. 
signalling an input device to start inputting data or an out- 
put device to start Printing some data stored in the memory. 
The control information cquld also be the status information 
of a device. For example,/before signalling an output device 
to print data, the control unit has to ascertain whether the 
output device is ready to print since it may not be ready 


Ы Introduction to Computers 7 


because of several reacons. This is accomplished by sending 
a sense status signal to the output device which, in turn, 
responds to this signal by sending back to the control unit 
information about its status, that is whether it is ready to 
print, etc. The reader may notice in Fig. 1.3 that the dashed 
lines have bidirectional arrows implying that control infor- 
mation flows from and to the control unit. 

The control unit controls the operation of different 
devices within a computer. But what controls the behaviour 
of the control unit? This is done by the instructions in the 
users program and the accompanying data. For example, an 
instruction in the program that calls for an addition will 
force the control unit to send control signals to the memory 
for transferring data to the arithmetic unit and also to the 
arithmetic unit to perform addition. 

Computer organization is not as simple as described above, 
The above description is considered sufficient by the authors 
as a first exposition to a beginner in this area. It is also 
sufficient for the purpose of this text. 

A few more things about organization will be dealt with 
later in this chapter and that is all about it in this book. 
For broadening his knowledge about computer organization, an 


interested reader may refer to the literature cited at the end 


in bibliography. 


1.2 INPUT AND OUTPUT DEVICES 


A wiae variety of input and output devices is used for comm- 
unication with tbe computer. In this section, we shall des- 
cribe the functions and characteristics of some of the comm- 
only used devices. As a part of this description we shall 
also introduce two commonly used media of encoding informa- 
tion in machine readable form, namely the card and the paper 


tape. 


Input Devices 
Card reader 


One of the commonly used input devices is the card reader. 
Figure 1.4 shows a card reader. The card reader reads the 
information punched on Hollerith cards. Before we describe 
the card reader, it would be instructive to take a look at 
a card shown in Fig. 1.5. Note that it has 80 columns num- 
bered 1 со 80 from left to right dad has 12 rows. Informa- 
tion is punched on tbese cards by devices known as card 
keypunches. In Fig. 1.5 all the 26 alphabets, 10 digits and 
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PIG, 1.4 А 1000-cagds-per-minute card reader 


a few special characters are shown punched* on the card. 
One character can be punched іп one column. Punches іп the 


* A punch is a rectangular hole made in a particular row and column 
of a card. 
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, top three rows are called the 12-zone punch, ll-zone punch 

4 and 0-рипсһ ( proceeding down from the top row). Punches іп 

m the next nine rows are called digit punches. Each character 

* has a unique code by which it is represented on the card. 

3 These codes are in terms of combinations of punches in a 

1 particular column. As an example, Fig. 1.5 shows that the 

4 card code for the alphabet А is a combination of а 12-zone 

- punch and a l-digit punch. 4 
Programs and data to be fed to a computer can be punched 

on cards and read from a card reader, The card readers avail- 

able these days range in speed from about 100 to 1,000 cards 

rer minute. The IBM 2501 card reader has a card reading rate 

of 1000 cards per minute. This implies that if in a deck of 

cards each card has all the 80 columns punched with useful 

information, a maximum of 80,000 characters/minute can be 

transmitted to the computer memory. 


Paper-tape reader 


The paper tape reader is another input device used for tran- 
smitting information to the computer memory. In this case, 
however, the information is punched on a paper tape which 
can be fed to a paper tape reader. The tape is divided along 
its length into columns. Each column has eight channels. One 
character can be punched in one column. 

À variety of paper tape readers is available in the 
market. They essentially differ in their cost and Speed, Paper 
tape readers are normally cumbersome, slow and cheap input 
devices (as compared to the cost of the card readers). Also, 
а paper tape, as compared to the cards, is rather awkward 
to handle by beginners in programming. 


in Console keyboard 


Most computers have keyboards as one of the input devices, 
Such a keyboard is also known as a console keyboard. It 
consists of a set of keys similar to the ones available on a 
commonly used typewriter. the console keyboard can be used to 
directly enter information into the computer memory. It is 
especially useful when the computer is used in an interactive 
manner, 

For example, suppose that a person is playing a game of 
chess or tic-tac-toe with a computer fitted with a console 
keyboard. In such a situation the person can communicate his 
move to the computer by typing it іп on the keyboard. The 
computer in turn can communicate its move on any one of the 
output devices it possesses, e.g. by typing it out on a 
console typewriter or displaying іс on a display unit. 
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Output Devices 
Line printer 


A line printer is an output 
device that prints on paper one 
line of characters at a time, 
There is a variety of these 
available in the market. One 
line printer, for example the 
IBM 1403 printer (model 7), 


prints at the rate of 600 lines FIG, 1,6 A-600 lines per minute printer 
(Courtesy: DCM Data Products) 


per minute. Each line can have 
a maximum of 120 non-blank 
characters, The size of the paper on which the printer prints 
be different for printers of different make. Figure 1,6 shows 
line printer, 


The print density for most of the line printers can be set 
at 6 or 8 lines per inch. The user may use any one of these 
two settings depending on how he desires to display the out- 
put information. 


Card punch 


A card punch is an output device that may be used to punch 
output information on cards,. These cards are the same as the 
one shown in Fig. 1.5. А card punch is useful when some out- 
put information is to be used, may be some time later, as 
input to a program. In such a case, the information can be 
punched on cards using the card punch and later, whenever 
needed, the information punched on these cards can be fed to 
another program. 

The speed at which a card punch punches cards varies 
from model to model. For example, the IBM 1442 card punch 
(model 6) can punch up to 80 card-columns per second. 


Console typewriter 


Like the console keyboard, many computers possess a console 
typewriter too. Normally, the keyboard and the typewriter are 
found together as a part of a computer system, The typewriter 
is a serial printing device unlike the line printer. It is 
therefore much slower in speed than the line printer. For 
example, the IBM 1053 printer prints at 14.8 characters per 
second. There are faster console printers available today that 
can print at the rate of 180 characters per second. 

The console typewriter is useful in situations similar 
to those where the console keyboard finds use. For example, 
while playing a game with the computer, the computer can type 
out its move on a console typewriter. 


may 
a 
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Many console printers ешріоу a matrix 


onson a code for printing characters. А matrix 
he " s size of 5 columns and 7 rows of dots 


@oooo 4 > (35 dots in all) is quite common. 

визна uamea Figure 1.7 shows how the character A 

Booos8 s Ш can be formed іп a 5 x 7 dot matrix. Ав 

@ooos s Ш the dots are spaced finely, the printed 

FIG. 1.7 Formation character appears in its proper shape. 
of character However, the print quality of dot matrix 
A in the 5x7 Printers is generally inferior to that 
dot matrix Of line printers. 


Graph plotter 


The graph plotter is a very useful device for getting graphs 
of any kind plotted by the computer. Although a line printer 
and a console typewriter 
can also be used for plo- 
tting graphs, the plotter 
provides a much smoother 
output. Figure 1.8 shews 
the IBM 1627 plotter. 

Many computers use 
the 1627 plotter. It 1з 
available in two models. 
Model 1 has a plotting 
area of 11 inches by 120 
feet, and the larger model 
2 has a plotting area of 
29.5 inches by 120 feet. 
The plotter has a pen that 
can move horizontally and 
a drum that rotates. The : 
paper is mounted on this 
drum which provides the EUR a сырла мы 
vertical motion as it rotates. Both the pen and drum movements 
are controlled by the computer. The pen can move in one of the 
eight possible directions in one step. Four of these directions 
coincide with the X and Y axes and the other four with the X 
and Y axes rotated by 45 degrees. In each step, che pen moves 
by 1/100th of an inch. Model 1 can take 18,000 sucn steps per 
minute. Model 2 is slower and'can take 12,000 steps per minute. 

The pen can be raised or lowered onto the paper, while 
making any movement. By suitably controlling the pen and drum 
movements, smooth graphs can be plotted, 


E 


FW 
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Display unit 


А display unit is a television-like device that can be used 
as an output device in a computing system. Output information 
is displayed on this device under the control of a computer. 
Uniike the printer or a card punch, which are electro-mecha- 
nical devices, the display unit is an electronic device and 4 
hence is much faster than many other output devices. However, 
the display unit finds its use mainly when the information wa 
is to be displayed temporarily. | 

Unlike a line printer, which 
prints on paper that can be 
retained almost forever, the 
information displayed on this 
unit can be preserved only till 
the power to the unit is shut off 
or additional information is 


displayed. 
oF eigen 1.9 shows ап aipha- 


numeric display unit that is 

used with tne GALAXY series of 

computers shown earlier in Fig 

1.1. The screen or this e сех 
1іпев еас aving 

nM E FIG. 1,9 А CRT display 


80 characters. 
The display unit also finds its (Courtesy: DCM Data Products) 


use when a computer is being used in 

an interactive mode, Some display 

units are capable of displaying only alphanumeric information, 

1.e. alphabets, numbers and other characters, The other kind 

of display units can display complicated graphs or pictures as 

well. The alphanumeric display unit can be very effectively 

used in certain cases, for example, in text editing applications. 

In such an application, a part of the text can be first dis- 

played on the screen, Then after examining the text, commands 

may be given to the computer to perform any kind of editing 

operation like deleting a line, deleting a phrase, adding a 

line, etc, 

A graphic dísplay unit can also be useful in certain 

other cases, for example in displaying product sales trend, TR 

profit/loss trends, demand patterns, etc, It should be noted " 

that before any information is displayed, it must exist in $ 

the computer memory. For example, if a graph is to be plotted, ^ 
2 
| 


the coordinates of different points must be computed and 
stored in the computer memory. k 

In this section we have reviewed only а few of the many 
input-output devices available. In a particular computer 
centre, some of these devices may not be available, In others, 
some devices not mentioned here may be available. Every compu- 
ter system has а set of input-output devices depending on the 


utility of the system. 


` being the two possible states. 


^ d ғ”, 4) " IQ ғ Er" M “бал v x d P" T 
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1.3 MEMORY 


А memory is an integral part of every computing system, As 
has been mentioned earlier, memory is used for storing pro- 
grams and data. In this section, we shall study in more 
detail, about the memory element. This section has been div- 
ided into two parts. In the first, a few general concepts 
related with computer memories will be presented. In the 
other part, different types of memories commonly used in 
computers are briefly described. 


Bits, Bytes, Words, Addresses and Memory Size 


For the sake of understanding a few terms the reader may 
imagine a memory to be like a rectangular array of switches. 


о 000 Sw мо м 0 


[m 
\л + оғы 


FIG. 1.10 А 16 x 8 array of switches 


One such array of switches is shown in Fig. 1,10. The swit- 
ches in the array are organized into 16 rows and 8 columns. 
Thus, each row has 8 switched. Each switch can either be 08 
or OFF at any instant. This means that the switches that con- 
stitute a memory are two state devices—-the ON and the OFF 


E] 
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In the ON state, a switch may be thought of ав гергеве-. 
nting a 1 and in the OFF state a 0. We may thus view a 
switch as the smallest unit of a memory capable of storing 
a 0 or 1, Such a two state switch is also known as a binary 
switch because it can represent any one of the two binary 
digits 0 and 1, These two digits 0 and 1 are known as bits 
and due to this name a switch in the memory is also known 
as a bit (note that the word bit is an abbreviated form of 
binary digit). 

From now onwards, we shall frequently refer to the swi- 
tch in a memory as a bit. 

The memory shown in Fig. 1.10 has 8 switches in a row. 
Each switch may be either ON or OFF representing a 1 or 0 
respectively. At any instant of time, a particular row of 
switches may represent the following pattern 


Cait 2d. & 5-6). 7 


CFOs G TAT, 0.0 


Such a pattern is known as a bit pattern. In this example, 
the leftmost switch is OFF representing a 0, switch 1 is also 


OFF, switch 2 is ON representing as 1 and so on. 


о кю س‎ © 


FIG. 1.11 А 4-word, 8-byte memory 


Each row of switches, that is, a fixed number of bits, is 
known as a word. The number of bits ín a word is taken as the 
word size or word length. In our example memory, the word size 
is 8 bits. Computer memories may differ in word sizes. In Tab- 
le 1.1 we have listed the word sizes of memories of a few 
computers. One may observe that the word size for most compu- 
ters varies from 8 to 64 bits. The word lengths mentioned in 
Table 1.1 are for a few of the much used computers. 

One may question the validity of specifying the word gize 
of a 'computer' instead of specifying.it for the 'memory'. In 
fact memories with a variety of word lengths are available in 
the market. However, the design of the CPU of a computer ess- 
entially determines the word length of the memory that may be 
used together with a particular CPU. It is because of this 
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TABLE 1.7 Word Lengths Available 
on a Few Computers 


Computer Word length 

(in bits) 
ILLIAC IV 64 
CDC 6600 60 
BURROUGHS 6500 48 
IBM 360 32 
IBM 370 32 
SEL 32 32 
PDP 11 16 
IBM 1130 16 
*INTEL 8080 8 
*INTEL 8086 16 
GALAXY 11 16 
TDC 316 16 


*These are microprocessors, А mi- 
Croprocessor is a CPU оп a small 
chip made of silicon, Thus it has 
an ALU and a control unit on the ы 
chip itself a 


reason that the word size is used as a characteristic of a 
computer. 

Each word in the memory has an address. Looking back 
at Fig. 1.10, we find that the addresses run from 0 to 15, 
The bit pattern represented in a word at a particular add- 
ress, is also known as the contents of that word. Looking 
at Fig. 1.10 again, we find, for example, that the contents 
of the word having address 5 are 


The above example is intended to bring out the fact that the 
address of a word and the contents of that word are two diff- 
erent things. 

Note that each bit in a word is not separately address- 
able. It is a specific set of bits that is addressable, If 
for example, the value of bit 3 of word 10 is to be obtained 
we have to first get the gontents of word 10 and then 'some- 
how' extract bit 3 from these contents. We shall return to 
this concept again in a shortwhile. 

Using the notion of addressability, we shall now introd- 
uce a new term. The smallest addressable set of bits in a 
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memory is known as a byte. In the memory shown in Fig.1.10, 
the smallest addressable unit is a set of 8 bits, which is 

a word itself. However, in some computers, like the IBM 370, 
one word has 4 bytes of 8 bits each. Some books define a 
byte as a fixed set of 8 bits. However, this is not true in 
general. The size of a byte varies from computer to computer, 
However, two commonly used sizes are 6 bits and 8 bits. 

To illustrate the concept of byte and word address- 
ability, consider a small memory shown in Fig. 1.11, This 
memory has 4 words of 2 bytes each. One byte 1з 8 bits in 
length. Note that each byte has a unique address. In such 
a memory, the contents of a byte would be an 8 bit pattern. 
The contents of a word would be a 16 bit pattern. Bytes 0 
and 1 constitute word 0, bytes 2 and 3 constitute word I5 
and so on. 

The size of the memory is specified in terms of the num- 
ber of words it has. If the memory is organized in terms of 
bytes, the size is generally specified in terms of bytes. 
For example, the memory shown in Fig. 1.10 has 16 words, 
whereas the memory shown in Fig. 1,11 has 8 bytes. Memories 
of computers are never so small as the ones given in our 
examples. For example, a TDC 316 computer may have 65536 
bytes. 

When the memory size is large, it is specified for con- 
venience, in units of 1024. This unit is abbreviated as a 
'K'. Thus a memory size specified as 32K words implies that 
the memory has 32 x 1024 - 32768 words, Observe that memory 
Size will be 2 to the Power some integer, For example 32K = 215 


and 64K = 216, The reason for this special characteristic of 
memory size will be evident in the next chapter, 


Memory Operations 


Two operations can be performed оп the memory~the read operation 
and the write operation. For the read operation, the memory has 
to be supplied with the address of a word (or a byte) and the 
memory returns the contents of that word (or byte). For the write 
Operation, the memory is supplied with the address of a word 
together with the information to be stored at that word. The 
memory stores this information at the given address. The time 
required to perform one read or write operation is known as 
the cycle time of the memory. Typical cycle times of memories 
range from 100 nanoseconds (1 nanosecond = 10 9 second) to 2 
microseconds (1 microsecond = 10 © second). 

Before the contents of a word coul be read out or a bit 
Pattern stored in a word, that word has to be accessed using 
the address supplied to the memory. The time required to асс- 
ess any word in the memory is known as the access time, Those 
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memories for which the access time is exactly the same for 
accessing any word, are known as random access memories. 
Information stored in a memory word is destroyed when a 
write operation is performed on that word or, in some cases, 
when the electrical power to the memory unit is cut off. When 
a write operation is performed on say word 7, the contents of 
the word prior to this operation are destroyed and a new bit 
pattern is stored. When a read operation is performed, the 
contents of the accessed word may or may not be destroyed. 
In memories where the contents of a word are destroyed on 
reading, the read operation is normally followed by a write 
operation to restore the original contents of the word. Here 
are a few examples to illustrate these concepts. In all 
these examples, an 8 bit word length is assumed. 


Example 1.1 
Operation to be performed - Write 
Address of the word into which 


the given bit pattern is to be 
written (or stored) - 19 


The bit pattern to be written - 0.1: LO 07074" 4 


Contents of word 19 before the operation 


430501. S Or 1.0 


Contents of word 19 after the operation 


ОТО 07071094 
Li 


Example 1.2 (Non-destructive readout) 


Operation to be performed - Read 
Address of the word the contents 
of which are to be read out - 192 


Contents of word 192 before the operation 


1:01 1-.0 10:0 


Contents of word 192 after the operation 


1011 0100 
CORRE o 
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Example 1.3 (Destructive readout but contents restored by a write 
back operation) 


Operation to be performed - Read 
Address of the word the contents 
of which are to be read out - 255 


Contents of word 255 before the operation 


01-11 he Cert d 


Contents of word 255 just after the operation 


(not the same as above) 


Final contents of word 255 after the writeback operation 


are 
ОТТО 
К ЕЗ o 


To avoid any confusion, we may state that all the memory 
operations are performed under the control of either the 
CPU or an input-output device, so that if a read operation 
is requested by the CPU, the address of the desired contents 
would have to be supplied by the CPU and the readout conten- 
ts also sent to the CPU. 


Types of Memories 


Memories used in computers can be classified according to 
several criteria. In this section, we shall not go into the 
details of these classifications. We shall, instead, mention 
a hierarchy of memory elements that exists in computer syst». 
ems and explain the utility of each element. This hierarchy 
exists because of variations in the: speed, the cost of diff- 
erent type of memories and the demands of the computer user, 
The memory elements that we shall consider are: 
1. Single-bit memories used as indicators, 
2. Several-bit memories used as registers, 
3. Semi-large size core or semiconductor memories 
used as primary memories in a computing system, and 
4. Large-sized memories, mainly disk, tape and magnetic 
bubble memories used as auxiliary memories. 
х 


Indicators 


Computers use various kinds of indicators. There is an indi- 
cator to show whether the computer is in the RUN state or іп 
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the WAIT state, an indicator to show whether after an arith- 
metic operation the result has come out to be'too large' 
(this is known as 'overflow' and is explained later in the 
text) and so on. Essentially these indicators are two-state 
devices, 

Devices known as flip-flops are used as indicators, 


A flip-flop is made up of the well known electronic device— 
the transistor. Because a flip-flop serving as an indicator 
can be in one of the two states at any moment, we call it a 


single-bit memory. 


Registers ] 


Registers are small but fast memories, The CPU of a computer 
possesses a number of registers for performing various tasks. 
For example, if two numbers, stored somewhere in the primary 
memory of a computer, are to be added, these numbers will 
have to be first read from the memory into two different re- | 
Bisters within the CPU. The arithmetic unit can then add the | 
contents of these two registers, and store the result in І 
either of these two registers or in a third register. The , 
Size of a register depends on its function. It can be typi- Е 
Сату Ф 2, 3, 4, 16 2 bits, 


Primary Memories 


Every general Purpose computer has a certain amount of prim- 
ary memory for storing programs amd data. Primary memories are 
slower but cheaper than registers. The storage capacity of the 
Primary memory of a computer varies from computer to computer, 
Typical sizes are 4K, 16K, 32K, 64K, 512K, 1024K bytes. For a 
Particular computer, there is always a limit on the size of 
the Primary memory it can have, 
In many computers, primary memories are made of ferrite 
cores. One ferrite core is used as a bit in the memory. Being 
magnetic, the core represents a0oral depending on its 
level of magnetization, Memories made from ferrite cores are 
known as core memories, Primary memories are also made of tran- 
Sistors, Such memories are known as semiconductor memories. 
ave steadily replaced the core memoríes 
time of primary remories varies typi- 
9 to 2 microseconds as mentioned ear- 
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Auxiliary Memoríes 


Most computers, apart from having a primary memory, also have 
one or more auxiliary memories. Auxiliary memories have high 
storage capacity and are characterized by low cost and slow 

speed as compared to core or semiconductor memories. Magnetic 


disks, drums and tapes are the most commonly used auxiliary 
memories, 


FIG. 1.12 Floppy diskettes 


чу uM “Ы 
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A magnetic disk is circular shaped. It has two surfaces 
coated with magnetic material. Each surface is divided into 
a large number of small magnetic zones. These zones are used 
as bits. As with other memories, a set of bits are organized 
into words or bytes. While operating, the disk rotates at a 
constant speed. One or more magnetic heads are mounted just 
on top of the disk surface. These heads read or write bit 
Patterns from or on the disk. Typical Storage capacity of a 
disk is one million bytes. 

Magnetic disks car be classified into two types— the 
floppy disk and the hard disk. Figure 1.12 shows a few floppy 
disks (more commonly known as diskettes). A floppy gisk can 
hold from 256K to 1M bytes (M stands for Mega or 10°). А 
hard disk, shown im Fig. 1.13, can typically hold 5M to 90M 
bytes. Diskettes and the drives on which they are mounted 
are relatively cheaper than the hard disks and their drives. 


FIG. 1.13 A typical hard-disk drive 
(Courtesy: DCM Data Products) 

However, as diskettes generally are rotated at low speeds than 

hard disks, their data transfer rate is much smaller than that 


the primary memory). 

A magnetie drum is a cylindrical object coated with magne- 
tic material. On the periphery of the drum, tiny magnetic zones 
are formed which serve to store binary digits. Like the disk, 
a drum also rotates at a constant speed while in operation. 


ing or writing bit Patterns from or on the drum, The typical 
drum storage capacity is About а million bytes. 


"лет ee OE нн чке нннучиүне a НД 
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A magnetic tape, as the name implies, is a long real 
(typically 2400 feet in length) of mylar type coated with 
magnetic material on one side. Bits on the tape are organi- 
zed into bytes or words. Unlike the drum and the disk, the 
tape rotates only when information is to be read from or 
written onto it. The storage capacity of a magnetic tape 
depends on the bit recording density. А typical 2400 feet 
long tape with a recording density of 800 bytes per inch can 
store up to 20 million bytes. 

Magnetic disks, drums and tapes are mounted on suitable 
drives. A disk drive, for example, on which a disk pack (i.e. 
one or more disks) may be mounted, will contain necessary 
circuitary to drive the disks, transfer information to or 
from the disks and protect the information stored on the 
mounted disks from destruction when a power failure occurs. 

A magnetic tape is a purely sequential memory. For 
example, if a command to read the contents of the tape is 
issued to the tape drive, the tape will have to be sequenti- 
ally scanned till the addressed portion of the tape is under 
the tape head. However, a disk is not a purely sequential 
memory, instead it is a semi-random access memory. This is 
because information on a disk is organized into a number of 
circular tracks as shown in Fig. 1.14. In each track there 
are a number of words. Thus, when a command 15 issued to the 
disk drive for, say, reading the contents of a word, the head 
either jumps to a new track thereby skipping over many irre- 
levant words or stay on the track on which it is currently 


positioned. 


} waks 


FIG. 1.14 Tracks on a disk 


Whether the head moves to a new track or not obviously 
Gepends-upon the addressed word. After the head has positioned 
itself on the right track, it waits for that word to pass 
under it and then senses the contents of that word. Thus, in 
a disk the accessing of any word is neither purely sequential 


"Lat 
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as in a magnetic tape nor is it Purely random as in the core 
memory. Hence it is known as a semi-random access memory 
though in some literature it 1з classified as a random access 
menory. Some disk drives have one head for each track. In 
such drives the only delay іп reading a word is the rotat- 
ionaldelay of the disk, 

Whichever auxiliary memory out of the ones mentioned 
above is used, the access time is of the order of a few milli- 
seconds which on the other hand 18 of the order of micro or 


memoríes, storage capacity of these memories being decided 
by the kind of jobs this system 16 to be used for. 


1.4 PROCESSING CONCEPTS 


Imagine a computing system which has a large number of users, 
Each user writes a Program іг a suitable language and submits 
his Program, together with any data, both punched on cards, to 
the computer centre for Processing. Let us call the program 
together with its data as a job. All these jobs are fed tc the 


| Computer through its card reader one at a time, The sequence 


in which jobs are fed to the computer is the same as that in 
which the jobs were submitted, 
The computer reads one job at a time from fie Card reader, 


is Processing the input jobs one by one in sequence, Note that 
after a certain number of jobs have been Processed by the com- 


for the results of the problems which they had Programmed, 
Next, imagine a computer centre that has a computer toge- 

ther with, say, 16 terminals, A terminal consists of a keyboard 

and a typewriter or a display. Via the keyboard, Programs data 


messages to the user on the typewriter or display. With Such a 
computing system &vailable, a user сап be assigned to a terminal 
that no one else is using, Each user at a terminal шау type in 
his Program and data using the keyboard and transmit it to the 
computer. Тһе computer in turn can Process each job and type 
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two-way 
interface 


FIG. 1.15 Block diagram depicting the organization 
of a typical time-sharing system 


In such a system, every user gets a feeling that the сош- 
puter is dedicated to him. As soon as the user has keyed in 
his program, the computer starts processing it. Therefore, 
the user does not have to wait for a long time, like he has 
to in a batch processing system, for his job to be processed, 

Such kind of computer operation is known as time sharing. 
In such an operation although each user feels that the compu- 
ter is totally dedicated to him, actually the computer gives 
small time slices to each user at such a fast rate that the 
user is not able to notice the fact that the computer is att- 
ending to several others too! 

To illustrate another processing mode, consider a manu- 
facturing plant that produces ten different products. Each 
item produced has to undergo several tests before it can be 
passed on for packaging, etc. In order that each item may be 
subjected to suitable tests, after being manufactured it is 
put on one of the ten belt conveyors. The conveyor transports 
the item to a test station consisting of different measuring 
instruments, These instruments measure various parameters of 
each item and transmit these ‘product data' to a central com- 
puter. The reader may refer to Fig. 1.16 to get an idea of a 
computer-controlled product testing system. 

Once the computer receives data about a product, it che- 
cks to ascertain whether the product is to be accepted or 
rejected. If it finds that the product is to be accepted, it 
transmits proper control signals to open the accept-bin gate. 
The moving product automatically falls into the accept bin. 
Otherwise, this gate is not opened and the product ends up 
in the reject bin. In this system, the computer is continu- 
ously receiving data, performing certain computations on this 
data and transmitting information to control a process. Such 
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Test stations 


Belt conveyors 


Manufacturing plant 


Accept bins 


Product data Reject bins 


transmission lines 


Central computer 


Gate control information transmission 
FIG. 1.16 Computer-controlled product testing 


an operation is known as real-time operation. When operating 
in real time, the computing speed is critical, Imagine the 
consequences of a computer used as in Fig. 1.16, that takes 
2 seconds to determine whether a Product is acceptable or not 
whereas one product enters a test station every sécond! 
Real-time operation essentially involves acquiring data 
continuously, processing it, storing the data in auxiliary 
memory for future use and, may be, transmitting control sign- 
als after processing the incoming data. Every computer does 
not operate in all the three Processing modes described in 
this section. Thus, some computers are meant only for batch 
Processing, some for time sharing and real-time operation and 
some for all the three types of operations. 


1.5 WHAT IS INFORMATION? 


For our purpose, we refer to Programs and data as information. 
A program is a sequence of instructions to be either executed 
by a computer directly or after a suitable transformation. 

Data is what a program operates upon. Instructions are stored 
in the memory before program execution may begin. Both instru- 
ctions and data are represented as bít patterns in the memory, 


ee 
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In the next chapter we shall study how numeric data and 
characters can be represented as bit patterns, i.e. in bi- 
nary form, and stored in the memory. We shall also study how 
common arithmetic operations can be performed on binary 
numbers. 


1.6 PROGRAMMING LANGUAGES 


A computer program is written in a suitable language known 
as a programming language. There are more than two hundred 
programming languages that were designed for use with com- 
puters. However, only a few are commonly used. These include 
FORTRAN, PASCAL, COBOL and PL/I. 

Languages mentioned above are also known as high level 
languages (HLL). These languages are English-like and are 
easy to understand by programmers. Thus, they are closer to 
the language spoken by human beings (and hence the name 
high level language, their level is higher as compared to 
the understanding level of the computer). However, computers 
need special means to understand a program written in a HLL. 
The only language which a computer can understand is its 
own language of Os and 15 which is known as its machine 
language (ML). 

In order to get an idea of the differences in an HLL and 
an ML, let us assume that it is desired to use the computer 
to compute the value of F given the values of M and A by the 


formula 
Е = MA 


The above formula сап be written іп a high level langu- 
age, like PASCAL, simply as 


F = M* A 


In a machine language one has to write a sequence of instru- 
ctions each consisting of zeroes and ones, to express the above 
formula, А typical machine language program for the above 
formula is given below along with comments to explain each 
instruction: 


Instruction Comments 


00000001 00000000 10000000 ; get value of M into a register 
00000010 00000000 10000001 ; multiply it by the value of А 
00000011 00000000 10000010 ; assign the result to Р. 


Writing a machine language program, or understanding it 
is quite a cumbersome task for any programmer. Ав machine lan- 
guages are closer to the computers and can be understood easi- 


ly by them, these are also known as low level languages. 
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A program written in а HLL like PASCAL or FORTRAN has to 
be first translated into the machine language of the computer 
being used. This translation is performed by another program 
known as the compiler. As shown in Fig. 1.17 a PASCAL com- 
Piler for example, takes as input a program written in PASCAL 
and translates it into the machine language of a particular 
computer. Thus, a PASCAL compiler designed for IBM 370 will 
translate a PASCAL program into the machine language of IBM 
370, another compiler designed for the DEC 10 computer will 
translate the input Program into the machine language of a 
DEC 10 computer. It should therefore be evident that machine 
languages differ from computer to computer* 


PASCAL 
PASCAL program. over Machine language equivalent 


linput or source program) (output or object program) 


FIG. 1.17 Function of a compiler 


The input to a compiler is known as a source rogram 
and the output produced by it is referred to as an object 
program. It is this object Program which after some more 

ressing up, is executed by the computer. Execution of a 
Program by a computer implies that the CPU of that computer 
fetches the instructions in the Program, from the memory, 
and carries out the specified task. 

Thus, for example, when the second instruction in the 
machine language Program given above is encountered, the 
CPU will get the value of A from the memory and multiply it 
with the value of M that it had obtained earlier, 

In the chapters that follow, we shall learn the high 
level language PASCAL and how to write Programs in this lan- 
guage. 


1.7 SUMMARY 


In this introductory chapter we have introduced different 
components of any general Purpose computer and described 
their functions. Different types of input, output an4 mem- 
ory devices have also been described. The concepts of batch 
Processing, time Sharing and real-time operation have been 
illustrated, 1 

“Finally, mention has also been made about Programming 
languages, their Complexity and how Programs written іп 
higher level languages can be executed on a computer with 
the aid of a compiler. 


YHowever, note that all IBM 370s,of one model, for example, use the same 
machine language, 


1.2 


1.3 
1.% 


1.6 


1:7 
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EXERCISES 


It is desired to solve the set of two simultaneous equations: 


a x жа x =b 
111 12 2 1 


а x ta x zb 
2191 22 2 


оп a computer. Outline the sequence of operations you will have 
to perform before you can get this problem solved. 


When the program written for solving equations given in problem 1 
is fed to a computer what kind of information will flow between 
various devices of the computer? 


What is the smallest unit of information storage in a memory? 


Consider a memory of 16 words of 3 bits each. How many distinct 
bit patterns can be stored: (i) in one word? and (ii) in the 
complete memory? Is the number of distinct bit patterns that can 
be stored in one word equal to 2" (for some integer n) ? If so, 
can you generalize this result for a memory with K bits per word? 


(a) Consider a card reader capable of reading at a maximum rate 
of 1,000 cards per minute (80 columns per card). Data punched on 
1,00,000 cards are to be transmitted directly to a core memory, 
having sufficient number of words to accommodate all the data. 
Assume one word has 12 bits and data in one column on the card 
аге stored in one word of the memory. How much time will ре requ- 
ігей to transmit all the data to the memory if the cycle time 

is 500 nanoseconds? 2 microseconds? Assume that the reader will 
operate at its maximum speed. 


(b) If the memory cycle time is 2 milliseconds (i.e. 2 х 107? 
seconds), will the reader be able to maintain its maximum speed? 
Give reasons for your answer. 


Let us define the turnaround time of a job as the time taken for 
the job to be processed and delivered to the user since the 
submission of the job at the computer centre. What can you say 
about the turnaround times of two computers one of which operates 
in a batch processing mode and the other in time sharing mode? 


For which of the following tasks would you recommend a real time 
computing system (do.not go into the economic aspects of the 
problem): 


(a) railway traffic control 

(b) payroll computation of a firm 

(c) acquisation and display of results of world swimming 
competition on a huge display unit 

(d) processing of examination results of your university 
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(e) controlling the world population (!) 

(f) controlling the use of world energy rescurces 

(g) calculating the amount of change to be given to customers at 
a supermarket 

(h) controlling the temperature inside a blast furnace. 


Why is it that most binary computers have their memory sizes equal 
to 2K, k »0? 


— at, 
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2 
NUMBER AND CHARACTER REPRESENTATION 


Every programmer writes programs that either manipulate num- 
bers or characters or a combination of both. For example, a 
program for solving a set of linear simultaneous equations 
deals predominantly with numbers; another for arranging a 
list of voters in alphabetical order manipulates characters 
and yet another for preparing a ledger has to do with both 
numbers and characters. 

While writing a program in a high level language like 
PASCAL, a programmer need not, in most cases, be concerned 
with how the numbers and characters used in his program are 
actually represented in the computer's memory. However, there 
arise several situations during the life of a programmer, 
when a lack of knowledge of such representations only forces 
him to consult those who possess this knowledge or consult 
bulky manuals. For example, a programmer trying to execute 
a PASCAL program on a 16 bit per word computer, may find that 
when the trivial operation of adding 28,000 and 4,769 is per- 
formed, the result obtained is (surprisingly) -32,767! Ав 
another such baffling example, when 0.4 is added to itself 
10 times, the result is 3.99999 and not 4.0! 

Explanations for such and similar, seemingly absurd res- 
ults are easy to provide for a programmer who has a basic 
knowledge of number and character representation, Such know- 
ledge not only liberates the programmer from such surprises 
but also aíds him, in several instances, to write correct and 
compact programs. 

It is for the reasons stated above that this chapter on 
number and character representation finds its place at the 
beginning of a long series of chapters on programming. 


2.1 POSITIONAL NUMBER SYSTEMS 


We are all familiar with the decimal number system which ме 

use frequently in our daily life. However, it 18 more conven- 
ient for computers to use the binary number system for deal- 
ing with numbers. Before we go on to explain various aspects 


] 
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of the binary number system, let us formalize the notion of 
number systems. We define a number system to be consisting of: 


distinct symbols that may be used to form numbers. These are 
0921,29, By 4525. 6, 7, 8 and 9. These symbols are known as 
digits. Any combination of these ten digits together with a 
plus or minus sign appended at the left is a valid integer 

in this number System. The weight of each digit in a number 
depends on its relative position within the number. For this 
reason we refer to this number system as a ositional number 
System. For example, the decimal number 589 can be written as 


589 = 5 x 102 + 8 x 191 + 9 x 100 


Tkus іп this number, the weight of 5 is 500, and that of 8. 
and 9 are 80 and 9 respectively. In the above example, we 
have expanded 589 using powers of 10, Here, 10 is known as- 
the base of the decimal number System. Every number System 
has a base Which can be used to ascertain the value of a 


this system. 
For positional number Systems, in вепегаі, a number can 
be written as 
ut Е ss iiu (2:1) 
This number сап be expanded as 
S Tess ka 
1\114;...1,. 6,...% 1,51, 10572 +. а 1,50 
+ fbl + БТФ „ЛЬ fb? (2.2) 


where the i's and f's are the digits of that number system and 
b denotes its base. As we Shall see іп the next Section relation 


their equivalent decimal form. іпутавла a oe have listed a 
few number Systems some of which are commonly used With compu- 
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2.2 THE BINARY NUMBER SYSTEM 


As mentioned earlier, the binary number system uses two syi- 
bols 0 and 1, known as bits, to form numbers. The base of 
this number system is 2. The number system is called binary 
because it allows only two symbols for the formation of num- 
bers. In this section, we shall learn how numbers in the de- 
cimal system can be represented in binary and vice versa and 
how these numbers are stored in a computer memory. We shall ТЫ 
only deal with positive integers іп this seetion. 


Binary to Decimal Conversion 


Any combination of Os and ls is a valid binary integer. Еха- 
mples are 1101, 01101 and 1111, Let us learn how, using rel- 
ation (2.2), we сап convert a binary number into its decimal 
equivalent. Expanding 1101 using relation (2.2), we get 


1101 = 1 x 2? * 1 x 2? * 0 x 2! 4 1 x 29 
Expanding the right hand side further, we get 
LICE = 8. 4-F.0 +57 = 13 
We therefore have 
(1101)ә= (13) 10 


which is a short form for stating that the binary number 1101 1 E 
is equivalent to the decimal number 13. Using this expansion 
method, we can convert any positive binary integer to its 
equivalent decimal form. 

Another simple method for converting a binary number to 
its decimal equivalent is known as the doubie-babble method. 
This can be described as follows. Begin the conversion proce- 
ess by doubling the leftmost bit of the given number and add 
to it the bit at its right. Then, again double the sum and 
add to it the third bit from the left. Proceed in this manner 
till all the bits have been considered. The final sum obtained 
by repeated doubling and adding is the desired decimal equi- 
valent. Let us illustrate this method by an example. : 


Ехапр1е 2.1 4 
Convert 1101 to its decimal equivalent using the double-babble ' 


2 ww > < жы "Ws 
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method. We proceed as follows: 


2. Adding to it the bit on its right, we get 2 t 1.» 3, 
3. Doubling again the number obtained, we get 3 x 2 = 6, 
^. Adding to it the next bit, we get 6 + 0 = 6. 
5. Again doubling, we get 6 x 2 = 12, 
6. Finally adding the last bit, we get 12 + 1 = 13, 
Thus we have the relation 


(1101), = (13)10 


which we have already established earlier by the direct me- 
thod of expansion in powers of 2. [Û 


Decimal to Binary Conversion 


A positive decimal integer can be easily converted to equiv- 
alent binary form by repeated division by 2. The method works 
as follows. Start by dividing the given decimal integer by 2. 
Let Ку be theeremainder and qı the quotient. Next, divide 41 
by 2 and let Ra and 4; be the remainder and quotient respect- 
ively. Continue this process of division by 2 until 0 is 
obtained as the quotient. The equivalent binary number can be 
formed by arranging the remainders as 


Ry Ri-1 ... R1 
where Rk and R4 are the last and the first remainders respe- 
ctively, obtained by the division Process. Let us illustrate 
the method by an example. 


Example 2.2 


Find the binary equivalents of 25 and 44, The division process 
for 25 1s illustrated in Table Rea 


TABLE 2,1 A Few Number Systems 


Symbols used for forming numbers 


Number system Base (written in order of increasing value) 
Binary 2 924 
Тегпагу 3 05; lie 2 
Balanced ternary 3 -1, 0, 1 (-1 written as 1) 
Octal 8 0, 1, 2, 3, 4, 5, 6, 7 
Decimal 10 0451, 2,19; 1% 56,77; 8,-9 
Hexadecimal 16 9,1,2,3,8,5,6,7,8,9, A, B,C,D,E,F 


^ 


Number and Character Representation 35 


TABLE 2,2 Conversion of 25 into Binary 


Number to be 
divided Quotient Remainder 
25 19 1 
12 6 0 
6 3 0 
3 1 1 
11 0 1 


Collecting the remainders obtained in Table 2.2, we find 
that 


(25), = (11001)? 
In Table 2.3, we have illustrated the process for con- 


verting 44 into its binary equivalent. Collecting different 
remainders from Table 2.3, we derive 


(44)10 = (101100) 


Using any method for binary to decimal conversion, it may be 
verified that 


(11001; = (25)10 


апа 
(101100; = (44)10 Пп 
TABLE 2,3 
Dividend Quotient Remainder 
uu 22 0 
22 11 0 
11 5 1 
5 2 1 
2 wk 0 
1 0 1 


Another simple method for decimal to binary conversion 
is to first express the given integer as a sum of powers 
of 2, written in ascending order. For example, 


25 = 16+8+0+0+1 = 1x2" + 1x23 + 0x22 + 0х21 + 1x20 


Then, collect the multipliers of the powers to form the bin- 
ary equivalent. For 25, ve get, from the above mentioned ex- 
Pansion, 11001 as the binary equivalent. Тһів method is 
useful for converting small decimal integers by hand. 
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Number Storage within the Memory 


After having learnt how to convert decimal numbers ir binary 
form, let us study how these binary numbers are stored or 
represented in memory. For this purpose, we shall have to 
consider a particular computer for explaining a few concepts. 

EL However, explanations with respect to a particular computer 

d will cause no loss in generality. In any case, we have given 

EU sufficient exercises to illustrate number representation for 

: а variety of computers. 

x Let us assume a computer with a 16 bits per word memory. 
In most computers, integers are represented in one memory 
word, The leftmost bit is used as a sign bit and the bits are 
used to represent the magnitude of the integer, The storage 


A format of integers in a typical 16 bits per word computer is 
E given in Fig. 2.1. 


Bit 
1 4 789 10 11 12 13 14 15 
= — P0123 5678 0 


"n Bit pattern representing the (nteger 


Sign bit 


O-positive number 
1-negative number 


^A FIG. 2.1 А typical 16-bit binary integer 
| Storage format 


We shall now present an illustrative example to show how 
positive integers could be stored according to the format 
given in Fig. 2.1. 


Exemple 2.3 


Let us see how the decimal number 25 will be represented in 
the memory of a 16 bit word computer according the format 


shown in Fig. 2.1. We have already found out the binary repre- 
sentation for 25 as 


(25310 = 11001 


The bít pattern for 25 has only 5 bits. In order to store this 
bit pattern in a 16 bit/word, we have to expand it into an 
equivalent 16-bit pattern, We can do this by adding as many 


bes as are sary towards the left of the bít pattern 
1; 1 
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Thus, we have 
(25)19 = 0000000000011001 


In this 16-bit pattern, the leftmost-bit is the sign bit which 
we have kept as 0 because 25 is a positive integer. The final 
form in whieh 25 would be represented is given in Fig 2.2204 


[000000000011001] 


FIG. 2.2 Representation of 25 іп а 
16 bits/word computer 


Example 2.4 


Similar to the representation of 25, we may also see how 44 
М111 be represented іп а 16 bits/word computer, The represen- 
tation is shown in Fig. 2.3. O 


000000000101100 


FIG. 2.3 Representation of 44 in a 
16 bits/word computer 


Maximum Number 


Most computers have a fixed number of words (usually one) for 
storing integers. It would therefore be worth examining what 
is the maximum decimal number that can be stored in a given 
number of bits, assuming that one of these 15 the sign bit. 
We can easily find this out by examining the entries in 
Table 2.4 which lists the maximum possible number, both in 


TABLE 2.4 . 
ae a re cu a ОГО 5 t omg on 
Word length Maximum binary Equivalent Expressed 
(in bits) number decimal in 20 
number form 
CREATA. URP MEME Ur Rin UAM DET celo V г 
2 01 1 20 
3 011 3 22-1 
4 0111 7 23-1 
8 01111111 127 27-1 
16 0111111111111111 32767 215-1 


a a ee нанын ііі 
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binary and decimal, for different word lengths. One can еаз- 
ily conclude that the maximum permissible integer in a comp- 
uter with n-bits per word and one word per integer, is equal 
to (2®7°-1). Here we have assumed that one out of n bits is 
used for denoting the sign of the number. 

It would be worth mentioning here that although every 
computer is designed to perform arithmetic operations on 
integers in a fixed number of words, usually one, a user can 
always write his own programs to store and manipulate larger 
integers. 


2.3 NEGATIVE NUMBER REPRESENTATION 


There are three commonly employed schemes for representing 
integers in binary form. These are known as 

1. signed magnitude scheme, 

2. one's complement scheme, and 

3. two's comp ement scheme. 
We shall explain each of these schemes and bring out their 
characteristics in the next few paragraphs. 


Signed Magnitude Scheme 


In this kind of representation the sign bit is treated sepa- 
rate from the magnitude bits. Thus, the representation for, ELS 
say, +25 and -25 will be the same except for the sign bit. 

In Fig. 2.2, we have already shown how *25 can be represented. 
Figure 2.4 shows how -25 will be represented in a 16 bits per 
word computer using signed magnitude representation. 


1000000000011001 


FIG. 2.4 Representation of -25 
in a 16 bits/word 
‘computer (signed magnitude 
scheme) 


One's Complement Scheme 


Let us first define the complement of a number. In decimal 
number system, the nine's complement and the ten's complement 
are defined. The nine's complement of a decimal number may be 
obtained by subtracting each digit of the number from 9. For 
example, the 9's complement of 372 is 627. The 


ten's comple- 
ment of an integer is defined to be equal to its 976 comple- 
ment plus 1. According to this definition, the 10's complement 


— ss 
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of 372 is 628. Notice that the sum of a number and its 10's 
complement is always 10" for some positive integer n. For 
example, 372 + 628 = 1000 = 103. 

Similar to the 9's and 10's complements in the decimal 
system, we have the l's and 2's complements in the binary 
system. The l's complement of a binary number is obtained 
by subtracting each bit from 1. For example, the l's complement 
of 1100 is 0011, Observe that the 1's complement of a binary 
number can be obtained by simply flipping each bit, that is 
simultaneously changing each 1 to а 0 and each Ооа. Уне 
2's complement of a binary number is equal to its 1's complement 
plus 1. For example, the 2's complement of 1101 is 0011 + 1 


= 0100, 
Let us now return to the representation of binary numbers 


using the one's complement scheme. Positive integers are тер- 
resented exactly the same way as described earlier in Section 
2.3. їп order to find how a negative number is represented, 
we first find the representation for the magnitude of this 
number and then take its one's complement. While taking the 
one's complement, all the bits, including the sign bit, are 
treated as representing the number. 

A few examples are given below. 


Example 2.5 


Let us see how -25 will be represented using the one's com- 
plement scheme in a 16 bits per word computer, The represe- 
ntation for +25 is given in Fig. 2.2. We find the one's 
complement of the 16-bit pattern representing *25 to get 
the representation of -25. This is shown in Fig. 2.5. Ci 


33-1 А 71730170 и, 


FIG. 2.5 Опе!в complement 
representation, of -25 


Exemple 2.6 


Let us find the representation of +0. It consists of all 
zeroes including the sign bit (see Fig. 2.6). Now, if we 
take the one's complement of the number in Fig. 2.6, we get 
a bit pattern of all 1's as shown in Fig. 2.7. 

Because this bit pattern is the one's complement of +0 
its decimal equivalent is -0! We thus conclude that using 
one's complement scheme, one gets two zeroes “~a plus 0 and 
a minus 0, Observe that this is also true with signed 


„тү 
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magnitude representation. a 


0000000000000000 


FIG. 2.6 Representation of +0 


FIG. 2.7 Representation of -0 
using one's complement 
Scheme 


Two's Complement Scheme 


We have already mentioned that the two's complement of a bin- 
ary number can be found by adding 1 to its one's complement. 
Positive integers are represented in two's complement form 

in exactly the same way as described earlier in Section 2:2. 
In order to find the representation of a negative decimal 
integer, we first find the representation of its magnitude 
and then take two's complement. As wíth one's complement, the 
sign bit must be included while taking two's complement. 


Example 2.7 


Let us find the 16 bit representation of -25 using two's com- 
plement scheme. The representation of +25 is shown in Fig. 2.2. 
Taking the two's complement of the bit pattern shown in 

Fig. 2.2, we get the representation for -25 shown in Fig. 2.8.[] 


FIG. 2.8 Representation of -25 
using two's complement 
scheme 


Unlike in the signed magnitude and one's complement scheme, 
the representation of 0 is unique in two's complement scheme .[_] 
This may be verified by first representing +0 and then 

taking the two's complement to obtain the representation of 
-0. Both the representations come out to be the same implying 
that there are no two separate zeroes in two's complement 
scheme, 


. 
> 
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A negative binary integer can be easily converted to its 
decimal equivalent by first taking the suitable complement 
of the integer and then converting the complemented number 
into decimal. 


Example 2.8 
To find the decimal equivalent of the two's complement bin- 


ary number shown in Fig. 2.9, we first take its two's comp- 
lement as shown in Fig. 2.10 and then convert the number in 


FIG. 2.9 A negative binary FIG. 2.10 Two's complement 
number in two's complement form of the number іп Fig. 2.9 


Fig. 2.10 to its decimal form. We thus get -17 as the decimal 
equivalent of the number in Figa 2.9; 


Minimum Integer in a Given Number of Bits 
The maximum possible integer that can be represented in a 


given number of bits is the same for all the three schemes 
of binary number representation. However, the minimum repre- 


sentable number varies. In Table 2.5, we have listed the mini- | 


mum integer for each of the schemes assuming n bits per word. 
In the last two columns of the table, examples of minimum 
numbers are given for а 4 bits per word computer. 


TABLE 2.5 Minimum Numbers in Various Schemes 


ت ا ا ر UEM‏ ر 


Minimum number Minimum Decimal - 
Scheme in n bits (in- binary equivalent ; 
cluding one bit number 
for the sign) - (4 bits) 
Signed magnitude HS 1111 -7 à 
One's complement -(Q -1) 1000 -7 
Two's complement -2 1000 -8 


The complement schemes for representing negative numbers 
may not appeal to the reader at thts point. The advantages of 
the complement notation will be evident іп a later section 
where we shall discuss the arithmetic operations in a computer 
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We end this section by giving the mirimum and maximum integ- 
ers on a few of the computers available today. For the bene- 
fit of the reader, these data are shown in Table 2.6. 


TABLE 2.6 
еа 2 А ТАЛҒЫН ee Е 
Word length Minimum Maximum 
Computer (bits) integer integer 
қы ОЗА E ee eek ENTIER o 
GALAXY 11 16 -32768 32767 
ІВМ 360/370 32 -231 (231-1) 
CDC 6600 60 -259 (259-1) 
PDP/10 36 -235 (235.1) 
UNIVAC 1108 36 -236 (236-1) 


= 


2.4 CONVERSION AND MEMORY REPRESENTATION OF FLOATING POINT 
NUMBERS > 


In the previeus two sections we have learnt how decimal inte- 
gers can be converted to binary integers and stored in the 
memory. In this section we shall learn how real numbers can 
be converted to binary and represented inside a typical mem- 
ory. We shall also Introduce a well standardized notation 
suitable for dealing with real numbers, that is the floating 


point notatien. We begin by introducing methods for convert- 
ing real numbers from decimal System to binary and vice versa. 


Conversion of Real Numbers 


A real number consists of an integer part and a fraction part, 
together with a positive or negative sign. 13.8, 114,21, 
70.925 are all real numbers in the decimal system. 1101511, 
11000.001, .1101 are all real numbers in the binary system, 
Conversion of a binary real number to decimal form can be 
easily accomplished with the aid of relation (2.2). We may 
illustrate this conversion by converting 1101.11 into its 
decimal equivalent, as follows: 


(1101.11); = 1x23 + 1x2? + 0x21 + 1x20 + 1x271 +1х2-2 
=8+4+0+1+4 0.5 + 0.25 
= (13.75) 10 


However, conversion of a decimal real number to its bi- 


nary form requires more work. The conversion proceeds іп two 
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steps. First, we find the binary representation of the inte- 
ger part of the number. Next, we convert the fraction part 
into its binary equivalent. The desired binary equivalent 
then consists of the binary equivalent of the integer part 
followed by the binary equivalent of the fractional part. 

We have already learnt how to convert an integer part to 
binary. Let us now learn how to convert the fraction part 

to binary. 

The method consists of multiplying the given fraction 
successively by 2. Тп each step, the integer part obtained 
(either 0 or 1) after multiplication, is noted separately 
and the new fraction obtained is again used for multiplicat- 
ion. The process continues till either the fraction reduces 
to 0 or a 'sufficient' number of bits have been obtained. 
The binary equivalent of the original fraction is then obta- 
ined by arranging from left to right, the integer parts 
obtained from the beginning till the end in that order. The 
next example illustrates this method. ) 


Example 2,9 


Let us find the binary equivalent of the decimal fraction 
0.625. The multiplication process has been carried out in 
Table 2.7. 


TABLE 2.7 

Fraction Fraction X 2 Integer part 
0.625 1.250 1 MSD* 
0.25 0.50 0 
0.50 1.00 1 LSD** 


pales E A е SEE I ы Ғғ 
% MSD - most significant digit 
** LSD - least significant digit 


From this table, we find that 
(0.6250 = (.101) gr 


Example 2.10 


Let us attempt fo find the binary equivalent of the decimal 
fraction 0.4. In Table 2.8, the continued multiplication 
process till 6 bits has been shown. It is quite evident 
from this table that the binary equivalent of 0.4 is not a 
finite bit pattern. We have to, therefore, approximate 0.4 
by a finite bit pattern. The number of bits used for app- 
roximation will depend on the particular computer. 


„Д; 
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We can now get an idea of the error involved in making 
such an approximation. Suppose, we approximate 0.4 by 0.011. 
Converting 0.011 back to decimal we get 0.375 as the appro- 
ximation of 0.4. A 6 bit approximation by 0.011001 is better. 
Converting it back to decimal we get about 0.390. Thus, we 
see that the more the number of bits we use in the represe- 
ntation, the better is the approximation. 


TABLE 2.8 Conversion of a Nonterminating 
Fraction to Binary 


Fraction Fraction х 2 Integer part 


оонн о 

Pu unm 
s... сог too co 
-оо--о 


Сіуеп а decimal real number, we are now vell equipped to 
be able to convert it to its binary equivalent. For example, 
13.625 can be converted to binary by converting 13 and 0.625 


to binary separately. Doing this and combining the two values, 
ме get 


(13.625)10 = (1101.101); 
Floating Point Notation and Real Number Representation 


À convenient notation for representing real numbers is the 
floating point notation. A number as expressed in this not- 
ation, consists of two parts —- a mantissa and an exponent. 

For example, 13.2 x 10?, 0.0152 x 1017, 1.91, 105 are all 

real numbers in floating point notation, The mantissas are 33,9% 
0 0152 апа 1,91 апа еһе exponents аге 8, 19 and -29 respectively, 
If the mantissa is between 0,1 and l, the number is said to be in 
the normalized (or standard) floating point notation, The three 
numbers mentioned above are shown below in normalized form. 


13.2 x 108 = 0,132 x 1010 
0.0152 х 1019- 0,152 x 1018 
1.91 x 10729- 0,191 x 10728 


Іп general, normalized floating poínt numbers are of the 
form b? where m, the mantissa satisfies the relation 
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1/b < m < 1, b denotes the base of the number system and n 
the exponent. А few binary floating point numbers, in norm- 
alized form, are 


0,1101 x 21? 
0.100 x 2719: 


Note, for example, that 1,1 x 25 1s not in the normalized 
form and neither is 0,001 x 27. 

Most computers available today, store real numbers in 
standard floating point form. We shall now learn how real 
numbers can be converted to standard floating point form for 
storage in memory. As with integers, we shall again assume 
a computer which uses a 16 bits рет word memory. We shall 
assume that a floating point number is represented in two 
consecutive words in the memory. The layout for storage of 
a floating point number in this computer is shown in Fíg. 215 
Observe that the leftmost bit is used to indicate the sign of 
mantissa, the next 23 bits are for the mantissa itself and 
the last 8 bits for the biased exponent. We shall soon learn 
what 'biased exponent' means. 

Floating point numbers are generally stored with, their 
exponents in biased form. This means that the true exponent 
is stored after adding a constant. This constant is deter- 
mined, according to one method, so that minimum possible ín 


Btno 0123456789101112131415 


d mem 


Word 1 


Sign bit of mantissa 


О = Positive 
1 = Negative 


01234567 89101112 131415 


Мога 2 


MSB-Most Significant Bits 
LSB-Least Significant Bits 


FIG. 2.11 А typical format for representing 
floating point numbers 
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iuteger in 8 bits (in our case there are 8 bits for the 
exponent) is increased to 0. An example 15 given below to 
illustrate these concepts. 


Example 2.11 


Let us convert the number 13.5 into binary and show how it 
could be stored in the memory according to the layout given 
in Fig. 2.11, 


First, we find the binary equivalent of 13,5 by methods 
described earlier. We get 


(13.5), = (1101,1), 


Next, we express the binary number in normalized floating 
point notation 


1101.1 = .11011 x 2% 
Thus, we have 


mantissa = 11011 
exponent = 4 


Now, in order to bias the exponent, we observe that the mini- 

mum possible number in 8 bits is  -128 (-27). то increase it 

to 0, we need to add 128, Thus, the biasing factor for an 

8-bit expenent is 128. “ 
In our case, we get the biased exponent as 4 + 128 = 132, 

The binary equivalent of 132 is 10000100, Finally, we have 

the 23-bit mantissa and 8-bit exponent as 


mantissa = 11011000000000000000000 
biased exponent - 10000100 


Figure 2.12 shows the Storage pattern of 13.5, 


011011 0000000000 4 00000000 10000100 


FIG, 2.12 Representation of 13.5 


Such kind of code for floating point representation is 
also known as the base 2 excess 128 code, In general, it is 
known as base b, excess e code, where b and e respectively 
denote the base of the number system and the biasing factor. 


Most computers Store floating point numbers according to this 
code, 


In order to 


obtain the representation of a negative real 
number, one may 


Proceed by first finding the representation of 


> 
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the absolute value of the number and then taking suitable 
complement of the mantissa. 


Example 2.12 


Let us find the storage representation of -13.5. To do so, 
we first find the representation of 13.5. This is already 
given in Fig. 2.12. Next, assuming that the computer uses 
two's complement scheme, we find the two's complement of the 
mantissa to obtain the desired result. Ғіриге:2.13 shows the 
desired representation of -13.5. 


1001010000000000 00000000 10000100 


FIG. 2.13 Representation of -13.5 


It may be menticned at this point that a 0.0 is stored as 
all zeroes in the mantissa and the exponent, with the sign 
bit also as 0. 


Accuracy and Range in Floating Point Representation 


On account of the finite number of bits available for the 
Storage of mantissa and exponent, it is natural for us to 
inquire as to what are the limits on the mantissa and expo- 
nent of floating point numbers. Let us first obtain the limi- 
ts on the mantissa. In all our discussions, we shall assume 
two's complement representation of numbers, an N-bit manti- 
ssa (excluding the sign bit) and ап M-bit exponent. 

The maxinug number that can be represented in N-bit 
mantissa is (2"-1). Thus, іп a 23-bit mantissa of our earl- 
ier examples, the number 22?-1 -8408607.0 can be represented 
exactly in the standard floating point notation. What about 
8408607.5? Can it be represented correctly in a 23-bit man- 
tissa and 8-bit exponent? The answer is NO. This is because 
when we begin converting 8408607.5 into binary, the represen- 
tation of 8408607 itself requires 23 bits, which means that 
no more bits are left to accommodate the representation of 
the fraction part, i.e. 0.5. Can 4204304.5 be represented 
exactly? The answer is affirmative because the binary equiva- 
lent of 4204304 is only 22 bits long (the reader may verify 
this if he so wishes) leaving out 1 bit for the fraction which 
in this case requires only 1 bit for representation. 

We thus observe that the lesser the number of digits in 
the integer part of a real number, more is the number of bits 
available for the fraction part. This implies that the 


ттс 


“ы 


YU 


eccuracy with which а real number can be represented, depends 

on the total number of digits it has including both the digits 

{ for the integer and the fraction part. We therefore, ask the 
following questiun—about how many digits in a real number can 

be represented accurately in an N-bit mantissa? We obtain an 

` answer to this question by making use of the relation 


xl WR ЕНТ (2.3) 


= 10 “10” 


decimal, If, therefore, the mantissa consists of 23 bits, we 
“сап obtain an accuracy of about 23 x 0.3 = 6.9 “7 digits in 
the binary representation of a real number. 

Note that an accuracy of 7 digits does not mean that any 
- real number having 7 or less number of digits can be represe- 
` nted exactly. We have already seen earlier that fractions 
like 0.4, 0.2, 0.6, etc. cannot be represented exactly in a 
finite number of bits. 

Let us now derive the limitations on the exponent. In an 
M-bit biased exponent, the minimum and maximum possible inte- 
gers are 0 and 2 -1 respectively. For example, in our earlier 
examples, the minimum and maximum biased binary exponents 
could be 0 and 255. Thus, for example, the maximum possible 
number according to the layout of Fig. 2.11 is 0.11...1 x 2127 

© 


23 


_ Бесацвс an excess 128 code is used, Using relation 2. 
- find that Ж 


* 


2127 .100.3х127 = 1038.1 MA 
and У 


2-128 x 1038.4 


| Та, an 8-bit exponent gives us a range of approximately 

z 10738 in decimal. In general, an M-bit exponent would give 

| us a range of about 100.31 where L = 2М-1' 

› From the above discussion, we find that the accuracy of 

real number representation, the number of significant digits 
represented, is determined by the number of bits available 
for the mantisse. On the other hand, the magnitude of the 
real numbers that may be represented depends on the number of 
bits available for the exponent. 


OO, EE — "AREE 
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2.5 CHARACTER REPRESENTATION 


Apart from doing computation with numbers, we frequently 
come across problems that require manipulation of characters. 
Arranging a set of names in alphabetical order is just one 
of the many examples demanding character manipulation. It is 
useful to know how characters are represented in the memory. 
In this section, therefore, we shall describe how this is 
done. Before we proceed, we may mention that by the word 
'characters' we refer to all the 26 letters, all the 10 
digits, the special character blank, and several other spe- 
cial characters like +, -, *, /, $, etc. 

Special 8-bit and 7-bit codes have been developed, and 
standardized, for the memory representation of characters. 
The 8 bit-codes are known as EBCDIC codes (Extended Binary 
Coded Decimal Interchange Code) and the 7- bit codes are known 
as ASCII codes (American Standard Code for Information Inter- 
change). Almost all available computers use one of these codes. 
Some of them permit both codes depending on the user's request. 
These codes are listed in Appendix C. 

Each computer has its own idiosyncratic way of storing 
the character codes in its memory. We shall illustrate the 
storage of characters by a few examples. 


Example 2.13 


In a typical computer, one word is 16-bit long. It uses ASCII 
codes for representing characters. Ав the code for each char- 
acter is of 8 bits, at most 2 characters can be stored in one 
word. In this computer there are two modes of character stor-' 
age—the unpacked and the packed mode. In the unpacked mode, 
only one character, along with a blank, is stored in one word. 
In the packed mode two characters are stored in one word. 

For example, character А stored in urpacked mode, would 
appear as shown in Fig. 2.14, The code for А appears in the 
leftmost 8 bits and rightmost 8 bits are filled with the code 
for blank. 


11000001 01000000 


Code for A Code for blank- 


FIG. 2.1% Representation of 
character А in a 16 
bits/word computer 


Ue UT LM 


P d n ү 


50 Introduction to PASCAL 


In the packed mode, for example, the two characters 
* and C can be stored in one word as shown in Fig. 2.15. ~ 


01011100 11000011 


77 Code for * Code for C 


FIG. 2.15 Packed storage 
representation of 
characters C and * 


Each of the two modes of character representation has 


its own advantages. The advantage of the packed mode in con- 


serving storage space is obvious. However, the advantage and 
the need for using the unpacked mode is not so obvious to 
опе who has not dealt with some character manipulation prob- 
lems. We shall elaborate these advantages in Chapter 6. 


Example 2.14 


In IBM 370, the smallest addressable element of the memory is 
an 8-bit byte. Thus, each character is stored in one byte as 
an 8-bit EBCDIC code. A word in IBM 370 is 32 bits long and 
can store 4 EBCDIC codes. || 


d 


2.6 BINARY ARITHMETIC 


In this section we shall learn сої perform simple arithmetic ` 
operations of addition and subtraction оп binary numbers. We 
shall only study how these operations ате performed on inte- 
gers. Multiplication and division operations on binary numb- 
ers ate left for the exercises. 

Arithmetic operations are performed in a computer in 
registers. These registers are generally of the same length 
as a word in the computer's'primary memory. In all our ехапр.- 
les that follow in this section, we shall assume 5-bit regi- 
sters. The leftmost bit is for the sign and the rest for the 
bit pattern for representing the number. We shall also assume 
that negative numbers are being represented in two's comple- 
ment form. 


Addition and Subtraction of Binary Integers 
Binary addition is a very simple operation. The ruies for 
binary addition are given in Table 2.9. Notice in this table 


that a carry is generated when two l's are added. Here is an 
example illustrating addition of two 5-bit integers. 


т 1 
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TABLE 2.9 Rules for Binary 


Addition 
* 0 1 
0 0 1 
1 1 (1) 0 


Example 2.15 


Let us perform the following three additions. The numbers 
inside brackets are decimal equivalents given to check the 
results of binary addition. 


01000 (8) 01000 (8) 11101 ( 
00111 (7) 11110 (-2) 11110 (-2 


01111 (15) 1 00110 (6) 1 11011 (-5) 
+ + 
Lost carry Lost carry 


The first of the above three additions is straight- 
forward and requires no explanatior. In the second one, we 
note that when the sign bits are added (the sign bits are 
treated just as other bits in binary addition when comple- 
ment representation is assumed) to the carry bit coming in 
from the right side bits, another carry is generated. However, 
because the register length is only 5 bits, this carry is lost. 
In spite of this lost carry, the answer remains correct! This 
same phenomenon is repeated in the third case where again we 
get the correct answer. |1 : 

Binary subtraction is performed by first taking the two's 
complement of the number being subtracted and then adding 
this complemented number to the original number. Thus if we 
have to perform a - b, we shall perform a + с, с being the 
two's complement of b. ; 

Let us first illustrate this process by an example and 
after that we shall explain the reason why this method works. 


Example 2.16 
Suppose that we desire to perform the following subtraction 


01000 (8) 
-00101 (5) 
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We first obtain the two's complement of 00101 by the proce- 
dure outlined earlier. We get the complement as 11011. Next 
we add this complemented number to 01000. We get 


01000 (8) 

11011 (-5) 

1 00011 (3) 

+ —— 
Lost carry 


Observe that we have obtained the correct answer. 
As another example, consider the following subtraction 


10100 (-12) 
- 00001 (PI) 


First, we obtain the two's complement of 1 to get 11111. Then 
we perform addition as follows: 


10100 (-12) 
11111 (-1 ) 


1 10011 (-13) 
+ 
Lost carry 


We have again obtained the correct answer by performing. 
addition. 

Let us now elaborate the reason why the above method for 
subtractíon by addítion of two's complement works. We first 
recall the fact that btc * 100...0, where c is the two's com- 
plement of b, and, the number of zeroes is equal to the num- 
ber of bits in b (or c). 

For example, 


01000 - 11000 = 100000 


Now, we can write a - b as 
a - b = at+(100...0-b) - 100...0 
لا‎ 


2's complement of b 
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where as usual, the number of zeroes in 100...0 is equal to 
the number of bits in b. Thus, the only operation we do not 
perform is the subtraction of 100...0 after adding a and 
two's complement of b. However, owing to the finite length 
of the register, the higher order carry automatically drops 
out, effectively resulting in a subtraction of 100...0! 

For example, if from 01000 we have to subtract 00101, 
we first add two's complement of 0010 to 01000. This gives 
us 


01000 (8) 
ғ” 11011 (-5) 


1 00011 


Now we may subtract from 100011 the number 100000 effectively 
getting 00011 (=3). However, a computer need not perform this 
extra subtraction, the leftmost 1 will automatically drop out 
owing to 5 bits length of the registers in which the arithme- 
tic is being done.One significant advantage of using two's 
complement for number representation is that in arithmetic 
operations, the signs take care of themselves. However, spec- 
ial care is necessary while performing arithmetic operation 
using one's complement. 


Overflow in Addition and Subtraction 


It must be obvious by now that due to the finite bit len- 

gth of the register, the result obtained by adding two numbers 
might exceed the capacity of the register in which it is to be 
stored. For example, if we are using 5-bit registers, the maxi- 
mum number that can be stored is 15 (2"'-1). Thus, we will get 
wrong results if, for example, 10 and 6 were added in a compu- 
ter using these registers. When the result of an arithmetic 
operation exceeds the maximum register capacity, we say that 
an overflow has occurred. Overflow may: occur in any computer. 
The user must see to it that any overflow in the program does 
not adversely affect the desired cesults. 

All computers give some indicativa when an overflow occurs 
as a result of an arithmetic operation. Let us study the exam- 
ples given below to find out how overflow or underflow could be 
detected іп addition and what result is actually obtained 1f 
such a condition arises. 
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Example 2.17 


Here is a case of no overflow. 


Carries + 1 
00111 (7) 
00100 (4) 
01011 (11) 


Observe that in this example, no carry is generated into 
the sign bit from the bits just next to it on the right side. 
Also no carry is generated out of the sign bit. 

Consider another example of no overflow. 


Carries + 1 1 
Қ 11000 (-8) 
11110 (-2) 


10110 (-10) 


Іп this example we find that a carry is generated into the 
sign bit and a carry is generated out of the sign bit so. 


Let us now consider two examples of overflow: 


Carries + 1 
01000 (8) 
01001 (9) 


10001 (15) 


In this case we see that the result of adding 8 and 9 is -15, 
Also, observe that there is a carry into the sign bit but no 
carry out of the sign bit. Similarly, in the following 
example, 


Carries + 1 


a T а дәй 
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We again get a wrong result because -18 cannot fit in 5 bits. 
Observe that in this case there is no carry into the sign bit 
but a carry out of the sign bit is generated. 

From the above four examples, we can deduce the following 
general rule: 

During the addition operation, if the carry into and carry 


out of the sign bit do not match, then an overflow has occurred.[] 


2.7 OTHER NUMBER SYSTEMS 


Having been exposed to the binary number system in sufficient 
detail, it is conceptually quite an easy task to adapt vario- 
us methods of number conversion and rules of arithmetic to 
other number systems. We shall present a few examples in thís 
section to illustrate some aspects of other number systems. 


Example 2,18 


Let us convert the hexadecimal number (refer Table 2.1) 1АЕ 
to decimal, expanding in powers of 16, we get 


1AF = 1x16? + Ax16! + Fx169 = 256 + 160 + 240 
= 656. E 


Example 2,19 


It is desired to convert the hexadecimal number FCB to binary. 
We can do so by first converting this number to decimal and 
then converting the decimal number obtained to its binary equ- 
ivalent. However, we can avoid this round about way by obser- 
ving that any hexadecimal digit can be represented in 4. bits 
and that 16 = 2^. Thus, each digit of the hexadecimal number 
can be converted separately to binary to obtain the binary 
equivalent of the number. To illustrate, 


FORCE LILI 1100 21011 
Р с B 


The reverse process, i.e. of converting a binary number. to 
hexadecimal, can be performed easily by forming adjacent groups 
of 4 bits each and then converting each group to equivalent 
hexa digit. For example, 


111 1011 1101 - 7 BD o 
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2.8 SUMMARY 


In this chapter, we have presented the basic concepts associ- 
ated with positional number systems. The binary number system 
is introduced and methods for converting decimal numbers to 
binary and vice versa outlined. Rules for performing addition 
and subtraction of binary numbers have been introduced. 

Two codes, EBCDIC and ASCII, have been mentioned for use 
with representation of characters. 


EXERCISES 


2,1 Convert the following numbers to decimal 
(a) (11010); 


(b) (AB60)16 
(с) (1011); (this is a number in balanced ternary system) 


(а) (77738 


2.2 Convert each оғ the following decimal numbers to binary, hexadeci- 
mal numbers to binary, hexadecimal and balanced ternary systems 
(a) 32 
(b) 256 
(c) 51 


2.3 Assuming that integers are represented in two's complement notation 
according to the format given in Fig. 2,1, which of the following 
bit patterns do you think will correspond to -2" (for 0 51515), 
(8) 111,.7,100' .... 0 
(5) 100,7.1011 E 
(02:011... 1200, 1210 
In each of the above cases, the total numbers of bits is 16 and the 
number of 1's and 0's indicated by dots depends on n. 


2.4 Convert the following real numbers to binary 
(a) 12.0 — (b) 4.625 (c) 0.125 (4) 0.775 


2.5 Convert the following binary numbers to equivalent decimal numbers 
(a) 0.011 (b) 0.0101 (с) 1.1010 (а) 11010.11001100 


2.6 Find the 9's and 10's complement of the following numbers 
(a) 97 (b) 79 (с) 0.82 (d) 297.64 


2.7 Perform the following subtractions using both 9's and 10's 
complements. 
(а) 8 - ч (b) 347 - 263 (с) 28.5 - 23.4 (d) 412.7 - 409.2 


2.8 Assuming 5-bit binary number with the leftmost bit being the sign 
bit, perform the following subtractions using both 1's and 2's 


complements. 
(а) 00101 - 00100 (b) 01011 - 01101 (с) 00101 - 11010 


2.10 


2.18 


2.1% 
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Convert the following real numbers to their floating point equi- 
valent for storage in the memory according to the format given in 


Fig. 2.11, 
(a) 29.36 (b) 45.8 (c) -33.125 (d) 0.0000625 


In the UNIVAC 1108 computer, floating point numbers are represen- қ 
ted according to the format shown below 
1 


012345678910... 35 z 
4 
E ex EE 4 

S - sign bit 


C - biased exponent (also called characteristic) іп 8 bits 
F - fraction part (27 bits) 

Numbers are represented in this computer using base 2 excess 128 ў 
code. Negative numbers can be represented by forming 1's complem- : 
ent of all the 36 bits. Give the UNIVAC 1108 representation for 4 
+12 and -12. р 
In the CDC 6600 computer, the maximum and minimum integers are ` 
259-1 and -259 respectively. The range of floating point numbers 


that may be represented in this computer is about 102308. If only i 
one word is used for data representation, determine a possible 4 
layout for the storage of integers and floating point numbers. b 
According to your layout for floating point numbers what is the - І 


maximum possible accuracy? 

Show, by sketching a layout of words, how you will organize the 
storage of floating point numbers in a 10 bit computer, if the 
desiped accuracy is 5 decimal digits and the exponent range is 


10577. How would you change your layout if double precision (i.e. X 
an accuracy of 10 digits) is desired? ү. 
If floating point numbers аге to be represented according to the 3 
layout shown in Fig. 2.11, for this layout what is Ф 
(а) the minimum binary number 3 
(b) the maximum binary number 8 


(с) the minimum positive binary number greater than 0, and 
(4) the maximum negative binary number less than 0? 
Also find the decimal equivalents of the four floating point numb- 


ers obtained as answers to 
(a), (b), (с) and (4). 

In ІВМ 1130, extended precision floating point numbers are stored n 
in three 16 bit words as shown below { 


01234567891011 12 13 14 15 


Word 1 


nemen 


Qo ue EPI = жү B 
4 


“ала. 


Д 
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2.15 


2.17 


2.18 


2.19 


012345678910 11 12 13 14 15 


4 15 MSB of mantissa 


Sign of mantissa Word 2 
012345678910 11 12 13 14 15 


16 LSB of mantissa 


Word 3 


For this computer, find the accuracy and range of floating point 
numbers representable according to this layout. Assume 2's comp- 
lement representation. 


(a) Using a method analogous to the conventional multiplication of 
decimal numbers, multiply the following 5 bit binary integers 
using double length registers büt finally obtaining a 5-bit result 
(i) 00110 x 00011 

(ii) 00011 x 10001 

(iii) 10101 x 11111 

(iv) 01000 x 01001 

In which of the above cases do you get overflow? 

(b) Replace the multiplication operator by the division operator 
in the above problem and solve it again. The result of a divisior 
operation must be in terms of a quotient and remainder. 


In floating point arithmetic, it is possible to obtain xty = 0 
without y being equal to - x. Construct an example to show this. 
(Hint — Assume a 2 digit exponent. In most computers if the 

exponent becomes less than -99, an underflow is said to have occurred 
and the result is set to 0.) 


Multiply the two floating point numbers0.3841 x 107% and 0.5411 x 107 
and round off the result to 4 digits. What can you say about the 
roundoff error in floating point multiplications as a function of 

the number of digits to which the result is rounded? 


Divide the number 0.1215 x 10 5 by 0.2136 x 107%, Perform division 
using 8 digit arithmetic and round the result to 4 digits. What 

can you say about the roundoff error in floating point division as 
a function of the number of digits to which the result is rounded? 


The EBCDIC codes for the characters C, 0, M, P, U, T, E, R are 
given in hexadecimal as: 


Character EBCDIC Code Character EBCDIC Code 
© 43 U 55 
0 HF T. 54 
M чр Е 45 
Р 50 R 52 


Малва 


2.21 
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How will the character string COMPUTER appear іп one word of 64 
bit per word computer, in packed form? Give your answer in 
binary. 


Give an arbitrary bit pattern in one word of any computer, can 
you, by any method, find out whether this bit pattern represents 
an integer ог a character or a floating point number or the 
mantissa of a floating point number? 


In the Binary Coded Decimal (abbreviated as BCD) number system 
employed by some earlier computers (e.g. ІВМ 1401) each digit of 
a decimal number is coded separately into binary into 4 bits. The 
BCD codes for integers 0 to 9 appoar in Table 2.10. Suppose that a 
computer has 8 bits per word. A decimal integer having a digit is 
stored in (п+1) consecutive words, the first one containing the 
code for + or -, and the leftmost four bits of the rest of the 

n words contain the BCD code for each digit of the number 

from MSD to LSD, The fourth bit position of all but the 


2 TABLE 2.10 BCD Codes of Decimal Digits 


Digit Code Digit Code 
са. BIE o БОКСА. ЕЦЕ Lo етер: 
0 0000 5 0101 

1 0001 6 0140" a. es 
2 0010 7 0111 
3 0011 8 1000 
4 0100 9 1001 


(n+1)st word is 0. A 1 in the fourth bit position of the (n+1)st 
word indicates that it is the last word in the group of words 
used for representing the given integer. 


Compare the scheme outlined above for number representation with 
the two's complement scheme, with respect to memory space require- 
ments. What factor will determine the minimum and maximum integers 
in the above mentioned scheme? 


Ба ee аі, Жж. 


3 


PROGRAMMING SIMPLE COMPUTATIONS 


After a brief exposure to computers and programming in the 

Previous chapters, we are ready to start learning how pro- 

4 grams are written. This chapter is intended to answer this 

ы question only partially. However, the subsequent chapters 

^ present a detailed answer. 

ге Here, we shall learn how simple computations encountered 

т by many of us сап be programmed to be'done' by a compu: 

E Ав mentioned earlier, уе shall use the Programming lan 

PASCAL to express all our programs. By the time one, rea 

^ through to the end of this chapter, one is expected to һаўе 

acquired the ability to write simple PASCAL programs (many 
of them trivial), get them executed on an available computer 
and correct them if any errors are detected. 

Before we begin our task of learning how to program, it 
is worthwhile advising the student that the acquisition of the 
above mentioned abilities depends mainly on the time the stu- 
dent spends with the computer. 


3.1 IDENTIFIERS 


While writing a PASCAL program, we need to assign names to 
7 objects to be manipulated in the Program. À name, called an 


Vdentifier in PASCAL is a sequence of characters. The first 
aracter of the identifier must be a letter of the alpha- 
bet and the rest could be any letter or digit 0, 1, 2, 3j 44 


5% 7, 8 or 9. Both upper and lower case letters are per- 
mit . Thes, the following are valid identifiers: 


FORCE, STOCK, TESTMARK, PI 
A901, game 


| ار‎ identifier denotes some object. For example, the 
identifier STOCK may denote the total number of white shirts 


in a shop; testmark may denote the marks obtained by а stu- 
dent dnji e test of a course. 


| 
Qe 
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The object denoted by an identifier possesses a value. 
We generally asscciate this value with the identifier itself. 
Thus, for exanple, if there are 49 white shirts in stock, 
then the value associated with the identifier STOCK is 49.The 
value associated with TESTMARK may be 27. In loose terms, we 
say that the value of STOCK is 49 and that of TESTMARK is 27. 


Constants and Variables 


In a typical PASCAL program, one normally uses several iden- 
tifiers to denote the objects of interest. Each identifier 4 
has а value associated vith it while the computer executes F- 
the instructions (called statements) in the program. The val- 
ues of some identifiers are never altered by any of the inst- 
ructions, while for others the values change (are altered) 
during program execution. The former constitute a class of 
constant identifiers and the latter is the class of variable 
identifiers (or simply called variables). А 
For example, if the identifier PI is used to denote the : 
) value of the mathematical constant т (say, 3.1415) then PI 
is a constant identifier. STOCK as explained above, is a 
variable as its value changes when white shirts are purchased 
by the customer or when a new stock of these is received by 


the shopkeeper. хє 


3.2 VALUES AND TYPES 


An identifier used in a PASCAL program can assume values 
from a set of values. For example, STOCK can assume a value 
from the set of integers. The identifier BARLEN that denotes 
the length of an iron bar can assume a value from the set of 
real numbers. 

A set of values, together with the operations that can 
be performed on these values, is called a type, PASCAL prov- 
ides four primitive types—dinteger, real, boolean and char- 
acter. These are described below. Note that the type of an 
identifier is the same as the type of values that it can assume. 


The Type Integer 


The type integer consists of the set of all integers. However, 
on a specific computer *his set will be finite. For example, 
on a computer where integers are coded in 16 bits this set 
will have values in the range  —32768 to 32767. Thus, a PASCAL 
program executed on such a computer can only use integer 
values in thisrange; all identifiers of type integer can also 
assume values in this range. 


Р 
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In PASCAL, we have the following operators that operate 
on integers : + (addition), - (subtraction), * (multiplic- 
ation), div (division) and mod (modulo). 

The following examples illustrate the meaning of these 
operators: 


12 + 4 = 16 

17 - 2 = 15 

8 * 3 = 24 
14 div 3 = 4 
14 mod 3 = 2 


The above mentioned operators are the binary operators— 


having two operands. Further, these are used in infix notatio 


whzch implies that the operator is placed between the two 
operands. 

The unary operations + and - can also be used with inte- 
gers. Thus -7 and +7 are valid forms in PASCAL, These are 
used in prefix notation which implies that the operator is 
placed just before its operand. 

Several other unary operators (called functions in 
PASCAL) like abs, sqr, succ are also available in PASCAL for 
operation on integers, These are listed in greater detail in 
Table 3.1%. 

While performing any operation on integers, care must be 
taken that the result is again a valid integer within the 
set acceptable on the particular computer used. Тһе consequ- 
ences of overflow can be derived from the explanation given 
in Chapter 2. 


TABLE 3.1 Operators and Functions in PASCAL 


Operator Operation Operand(s)type Result type 
іт assignment any type other - 
than filetype 
unary t identity integer or real same as operand 
unary - negation integer or real same as operand 
Ф addition or ‘integer, real or integer real ог 
set union set set type 
- subtraction or integer, real integer, real 
set difference or set ог set type 
* multiplication integer, real integer or real 
or set inter- or set or set type 
section 
ontd. ) 


n 


Мы Жы жж. жі» жқйы "= a کا‎ 


ааа а. cc err чуну hh وو‎ 


л жый. قق ف‎ 


\ 


* 


TABLE 3.1 (contd.) 


integer division 
modulus 
real division 


equality 
inequality 


less than 
greater than 
less or equal 

or set inclusion 
greater ог equal 
or set inclusion 
set membership 
negation 
disjunction 
conjunction 
rounding 
truncation 
tests for an 

odd value 
absolute 

square 

square root 
standard 
trigonometric 
predecessor 
successor 
character 
equivalent 

end of file 

end of line 
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integer 

integer 

integer or 

real 

scalar, string, 
set or printer 
scalar, string, 
set or printer 
scalar or string 


scalar oz string 
scalar, string, 
set 


scalar, string, 
set 

set 

boolean 
boolean 
boolean 

real 

real 

integer 


or real 
or real 


integer 
integer 
real 


real 
scalar 
scalar 


integer 
file 
file 


integer 
integer 
real 


boolean 
boolean 


boolean 
boolean 
boolean 


boolean 


boolean 
boolean 
boolean 
boolean 
real 

integer 
boolean 


integer or real 
integer or real 
real 


real 
scalar 
scalar 


character 
boolean 
boolean 


*Some of the operators listed in this table are explained in subsequent 


chapters. 


The Type Real 


The set 
14.999, 
in many 
pressed 
as 6.9Е20. 


Thus, 


of real numbers belong to the type real. 
-18.23 are all values of type real. In 

other programming languages, real numbers can HT ex- 
in the E -notation. 


for example, 


Thus, 3.2, 
PASCAL, as 


6.9 x 10? 
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The four common arithmetic operators can be used with 
the type real. A few examples are given below: 


322-Ж 1,9-- 5.1 
3.2 - 1.9 * 1.3 
1.8 * 4.0 = 7.2 
1.8 / 4.0 = 0.45 


Note that / is used to denote real division. Its two operan- 
ds can be integers or reals or any combination of the two. 
In any case, the result is always a real quantity. 

The unary + and - operators can also be used with reals. 
Two unary operators trunc and round are provided for conver- 
ting real values to integers. The following examples illust- 
rate their function: 


trunc (17.8) ә 17 
round (17.8) = 18 
round (17.44) = 17 
trunc (-17.8) = -17 
round (-17.8) = -18 M 


While programming operations with real numbers, care must ГА 
be taken that the results are within the range permitted by 

the specific computer on which the PASCAL program is to be 

executed. 


The Type Char 


The set of characters together with a few operations on these, 
forms the character type (abbreviated as char in PASCAL). The 
set of characters again varies from one computer to the other. 
However, the following subset is always found: 


all 26 letters 10 digits, +, -, *, /, comma(,), quote 
(') and period (.). 


The complete PASCAL character set is given in Appendix A. 
Note that when working on a specific computer, some symbols 
from this set may not be available. In such cases, the PASCAL 
compiler provides an alternative symbol. The reader shculd 
consult his computer centre staff for such alternatives. 

Character constants (or values) are written by enclosing 
them within quotes. For example, the following are valid cha- 
ractér constants: 


tae 0! 41 "gt "7! “а! 
If the quote mark is to be itself used as a character const- 
ant, it can be written ag: “ умтт; 


Note that the character value'9' is different from the | 
integer value 9. They аге represented in the computer memory 


со. лақ азайта АА манын мі аа айл а; 
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in different ways as was explained in Chapter 2. 

As is the case with the type integer, the character 
constants are also ordered. Two functions ord and chr are 
available for operation on character values. ord (c), where 
c is an identifier or a constant of type character, gives 
an integer value that is the position of the character in 
the character set. As the letters of the alphabet are ord- 
ered serially, we have 

ord ('Z') - ord ('X') 
ord ('B') - ord ('B') 


The chr function operates on an integer ( 0 or more ) 
and gives a character value. chr is merely the inverse of 
the ord function. Thus, we have the identity 


chr (ord (c) ) = c 
The Type Boolean 


The constants true and false constitute the set of boolean 
values. An identifier of type boolean can only assume values 
from this set. 

The binary operators and, or and xor can be used with 
boolean values. Table 3.2 defines these operators. 


TABLE 3.2 Definition of and, ог and xor 


and true false ог true false xor true false 
_———————_ ee e Xy t 

true true false true true true true false true 
false false false false true false false true false 
————— ee eee 


Thus, for example, if P and Q denote variables of type boolean 
and their values are true and false respectively; we have 


P and С = false 
Р ог 0 = true 
P xor 0 = true 


The unary operator not can be used with boolean values; 
not (b) is false if the value of b is true, otherwise it is 


false. 


There are six relational operators the application of 
which yields boolean values. These operators are 


less than 

less than or equal to 
greater than 

greater than or equal to 
equal to 

not equal to 


wily уіл ^ 


a^ 
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All of these are binary operators. Here are a few examples 
of their usage: 


3 <4 = true 
3 < 4 = true 
3 »4 = false 
3 »4 = false 
3 = 4 = false 
3 # 4 = true 


These operators can be applied on integers, reals or charact- 
ers. Thus, 5.6 « 7.8 is true and "А" > 'Z' ів false. 

When applied on character type quantities, the result 
depends on the ord value of these characters, Thus, because 
ord ('B') is less than ord ('D'), ‘Bt < 'D' ds true. 


3.3 DECLARATIONS IN PASCAL 


As mentioned above, every identifier used in a program has a » 
type associated with it. While writing a PASCAL program, it is 
mandatory for the program to mention or declare the type of 
every identifier before it is used. « 

Declarations fall into two categories—constant declarat- 
ions, and variable declarations. Under the constant declarat- 
ion part, all those identifiers which denote objects with con- 
stant value are specified together with the associated value. 
The example below illustrates this point. 


const 
PI = 3.14159: ; 
maxnoofstudents = 288 ; 
pace" 72 
forever = true ; 


Here, the four identifiers—PI, maxnoofstudents, space and for- 
-‘ever—denote constants. The identifier together with its value 
is specified in the constant declaration. The word const used 
as the header is a keyword to indicate that the list of const- 
ant declarations is to follow. Note that the type of each iden- 
tifier can be derived from the value it denotes. Thus, PI is 
real, maxnoofstudents integer, space character and forever 
boolean. 

Identifiers that denote variables are declared under the 
variable declaration heading. The following example illustrates 
a few of these. 


var 
noofitems, stock, totalmarks: integer , 
rodlength : real ; 


TW 
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found : boolean ; 
initial : char ; 


Неге, уат is the keyword signifying that variable declar- 
ations are to follow. The identifiers together with their 
types are then listed. Notice the use of sémicolon (;) and 
colon (:) in all the above declarations. 

In a PASCAL program, variable declarations always follow 
the constant declarations. If in a program there are no con- 
Stant declarations, then, obviously variable declarations 
are at the beginning of the program. The order in which iden- 
tifiers are declared within a category has no consequence. 


Uniqueness of Identifiers 
Within a set of declarations no identifier can have more 


than one declaration. Thus, the following are examples of 
invalid declarations. 


1. var 

Xy y, Е t-integer ; 

x 2 real ; 
2% const 

дах: 50:5 

шіп : 25 ; 

уат 

р, d, min : integer ; 

3% уат 


X, y, x ! integer ; 


Some identifiers have predefined meaning in PASCAL. Such 
identifiers are known as reserved words or keywords. These 
cannot be used for any purpose other than what they are 
intended for. A few examples of invalid declarations given 
below should illustrate this point. 


17 var 
X;5y..6ónst.: real »; 
2. var 


abs, trunc : real ; 
x, y : integer 


3. const 
integer = 5 
E 


The above declarations are invalid because of improper use 
of the keywords const, abs, trunc and integer, 


QV can 
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Strings in PASCAL 


In many situations it is necessary to manipulate strings of 
characters rather than just one character. For example, when 
a message is to be printed out, it can be coded as a string 
and output as it is. There is no general type called string, 
in PASCAL. However, it is possible to use string constants 
(same as strings) in the input, output and comparison stat- 
ements as described later in this and subsequent chapters. 

For convenience, one can name a string constant in the 
constant declaration part. For example, the following are 
valid declarations. 


const 
daymessage = ' THE DAY IS ' ; 
spaces = ' hos 
companyname = ' SOFTWARE HOUSE ' 


3.4 THE STRUCTURE OF А PASCAL PROGRAM 


Before we write our first PASCAL program, let us outline the 
structure of a PASCAL program. This is shown below. 


program name ( list of identifiers ) ; 
constant declarations 
variable declarations 
begin 
program body 
end. 


The first line begins with the keyword program and speci- 
fies the name of the program which could be any identifier. 
For example, QUADSOLUTION, LEDGER, QUOTATIONS are all valid 
program names. The list of identifiers which immediately 
follows the program name is explained later in this chapter. 

The first line ends with a semicolon and is followed by 
declarations in the order already described. The instructions 
or statements which constitute the algorithm (method for 
solving the problem). follows the declarations. This sequence 
of statements is surrounded by the keywords begin and end 
which readily convey their obvious meanings. The declarations 
followed by the statement sequence within begin and end con- 
stitute what is called a block in PASCAL, 

From Section 3.6 onwards we shall learn the different 
types of statements in PASCAL and how these can be sequenced 
to form a useful program. 


ی ا ت eo‏ 
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3.5 SYNTAX CHARTS 


Every statement in PASCAL is written according to certain 
rules just as every English sentence is written according 
to the rules of English grammar. These rules describe the 
form or the Syntax of each PASCAL statement and also of the 
complete program. In this section, we shall introduce a not- 
ation to describe the syntax of PASCAL language. According 
to this notation, the syntax rules are described by syntax 
charts. We shall use these syntax charts throughout this 
book to describe PASCAL statements. 

Іс шау be noted here that syntax charts can as well be 
used to describe the syntax of other programming languages 
and therefore are more general than one can think of in the 
first instance. 

To understand syntax charts, let us see how rules for 
forming identifiers in PASCAL can be described by using a 
syntax chart. We have already learnt that an identifier is 
any sequence of letters and digits with the first character 
being a letter. This definition of identifier is very clea- 


rly shown by the syntax chart for identifiers shown in 
Fige УЗ 


FIG. 3.1 Syntax of identifiers 


The syntax chart of Fig. 3.1 is labelled as identifier 
which implies that this chart can be used to construct a 
valid PASCAL identifier. For example, the following is a list 
of valid identifiers: 


A 
pqrst 


root 1 
x1000 


""-— Aw F ge" 


UCM‏ فا 
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A syntax chart consists of one or more boxes—rectangu- 
lar or rounded— interconnected by directed lines (arrows). 
Objects inside rounded boxes are primitive and are either 
written in a program as they are or by using their well 
understood definition. Objects inside rectangular boxes are 
defined by another syntax chart and therefore are not primi- 
tive. 

In Fig. 3.1 we have only rounded boxes. For letter we 
may use any one of the twentysix letters of the English 
alphabet (in upper or lower case form). For digit, we may 


,use any one of the ten digits 0, 1, 2, 3, ^, $206. 7, 8 and 


9, 

Any syntax chart describes a large class, possibly infi- 
nite, of objects, Thus, Fig. 3.1 describes the infinite class 
of identifiers. In order to construct one instance of that 
object, we follow any one of the several possible paths thr- 
ough the syntax chart. As an example, starting with letter 
and assuming it to be Z, we may proceed to digit, assume it 
to be 9 and then come out of the syntax chart. We have 
thereby generated the identifier Z9. 

As another example, consider the syntax chart for ап un- 
signed integer constant shown in Fig. 3.2. The examples 
given earlier can be examined to understand how this chart 
describes the set of unsigned integer constants. 

A more complicated syntax chart, describing a valid 
unsigned number in PASCAL, appears in Fig. 3.3. An examination 
of this chart reveals that in order to generate a valid 
PASCAL constant we need to know the definition of. unsigned 
integer which is already given in Fig. 3:24 


FIG. 3.2 Syntax of unsigned integers 
Use of Syntax Charts 


As mentioned earlier, syntax charts are used in this book for 
describing the syntax of various PASCAL statements and con- 
structs (like identifiers and constants). Whenever in doubt, 
while writing a PASCAL program, these charts may be referred 
to for knowing the correct syntax. For example, it may be 
easily verified from Fig. 3.3 that the constant 3.9Е -33.4 
is not valid in PASCAL*. 


SThus, we cannot code 3.9 x 10 99°" in PASCAL as a constant. 
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FIG. 3.3 Syntax of unsigned number ; 


and presumably mastered the syntax, опе may not need these 
syntax charts too often. 


A 
However, after having written several PASCAL programs P 
: 
le. 
à 


3.6 FORMULAE AND THEIR EVALUATION 


Calculating new quantities from existing ones is a common UE 
practice. For example, given the values of mass and acceler- | 
ation, we can calculate the quantity force by using the , 
formula 

F = ma 


As another example, assume that a shop gives 15% discount on a 
all articles sold by it. We can calculate the discounted  «— 
price (a new quantity) from its normal price, by using tha 4 
formula LAT 


43 «^n^ 240715 
EN S СР 


where 45 and n, denote the discounted and normal price 


respectively, 


Above, we have given two formulae, one for computing the ғ 
force and the other for computing the discounted price. These 
are just two of a large class of formulae, simple and compli- 3 
cated, that exist in fields like physics, mathematics and > 
economics. Our aim in this section is to iritroduce certain 
features from the language PASCAL with the aid of which one 3 
can express almost any formula in PASCAL and get it evaluated ' 


by a suitable computer. 


ж 
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Elements of a Formula 


As is evident from the two formulae mentioned above (and many 
others which we know of), a formula has two parts. We shall 
call these as the left part and the right part. The left part 
indicates the quantity to be computed and the right part* 
specifies how it is to be computed. These two parts are sep- 
arated by the equals (=) symbol. The quantities themselves 
are denoted by symbolic names. Thus, we see that in the for- 
mula 


F » ma 


the names F, m and a denote force, mass and acceleration 
respectively. This formula could as well be written as 


force = mass х acceleration 


In this case the names of various quantities are more des- 
criptive and the multiplication operation has been expli- 
citly specified. 

The right part of a formula may also have one or more 
constants. For example, in the formula for discounted price 
given above, 0.15 is a constant. 


Coding Formulae into PASCAL 


In order to learn how to code a formula into PASCAL, we need 
to know how to code various elements of the formula into 
this programming language. We shall now describe how this 
coding can be achieved. 

A suitable combination of identifiers, constants and 
certain operators, e.g. addition (+), subtraction (-), mul- 
tiplication (*) and division (/), is known as an expression. 
For example, a few valid expressions are 


р+ 9 
N - 0.15 * N 
M*A 


It should now be evident that the right part of a for- 
mula can be coded using expressions in PASCAL. The complete 
formula can be written in PASCAL by using the assignment 
operator (:=) instead of the equals (=) symbol which we 
have learnt is used as a relational operator to test for 
equality. Thus, the two formulae mentioned earlier in this 
section can now be written in PASCAL as 


force := mass * acceleration 
discountprice := normalprice - 0.5 * normalprice 


* Some readers may be inclined to denote this right part as the formula. 
However, for our purposes, the right part is an expression. How this 
expression can be constructed is formally defined later in this chapter. 


CN s p uh os 1f 
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In Table 3.3 we have listed a few more formulae using both 
the conventional and PASCAL notation. А careful examination 
of this table should enable the reader to understand the 
use of parenthesis and other operators like SQRT, LN, etc. 


TABLE 3.3 Some Formulae and Their Translation in PASCAL 


Formula PASCAL 
1. V a uttg V:sustt*g 
2. ӘБ Nt S := V/t 
3. F = -Kx F := -K*x 
ц. KE = 1/2 mu? KE : (1/2)*m*u*u 
5. f = х?+2х+% f := x*x + 2*x + 4 
6. Z = (а+Ь)(а+с) Z := (ағы) * (d+c) 
7. у = albtc)/e y := (a*(btc))/e 
8. y = sin(x) y :* sin(x) 
9. Z = 2sin(x)cos(x) Z := 2*sin(x)*cos(x) 
10. Root = UIT Root:=(-b +sqrt(sqr(b)-4*a*c))/(2*a) 


11. Area = 2рг sin(x/p) Area := 2*p*rpf*sin(x/p) 


12. Volume - $ x 3.1% r2h Volume :- (1/3)*3.1ü*p*p*h 

13. Moment = М12/12 Moment :- (М%1%1)/12 

14. V=VB- 26071-10) V:= VB - (C/(C+CL))*(v1-vo) 

1452” е п,/У1-у2/с? Mass := Restmass/(sqrt(1-V*v/(Cc*c))) 


Evaluation of Expressions and Assignments 


Consider the formula 


atb 
= ШІ * 
р c*d + r*z 


written in PASCAL as 
P :- (A+B)/(C*D) + R*Z (1) 


assuming that all identifiers are of type real. Figure 3.4 
Shows the syntax of assignments in PASCAL. 


Tm. ААА 
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Ce Qm 


FIG. 3.4 Syntax of assignment statements 


The above formula, coded in PASCAL, is known as an assignment 
statement. When the above PASCAL statement is executed by the 
computer, the value of P will be obtained. However, when tra- 
nslating formulae into an assignment statement, like the one 
given above, we must know the sequence in which the operators 
within the expression will be applied on their operands. 

To illustrate the execution sequence within an expression, 
we mention here the sequence in which the expression appearing 
in (1) will be executed. This sequence is given below: 


Step 1: А+В will be evaluated first. 

Step 2: Next, C*D will be evaluated. 

Step 3: Тһе value obtained in step 1 will be divided by 
the value obtained in step 2, and a new value 
obtained. 

Step 4: R*Z will be evaluated. 

Step 5: The values obtained in step 3 and 4 will be 
added. 

Step 6: The value obtained in step 5 will now be 
assigned to P. 

Though in most cases the sequence in which an expression 
will be evaluated is obvious from our previous knowledge of 
formula evaluation, it is worth presenting a few more examples 
that illustrate the rules which determine this sequence. үл? 


Example 3.1 


Consider the assignment 
P:=Q+R*S (2) 


When the expression in the above assignment statement is 
evaluated, R and S will be multiplied first and the result 
added to 0, The value obtained after addition will finally 
be assigned to P. However, if we rewrite (2) as 


Р := (0% к) * S (3) 


then the addition of 0 апа R will be performed first followed 
by the multiplication by S. 

Thus, if the values of Q, R and S are respectively, 5, 7 
and 8, the value of P would be 61 according to (2), о 


4 
| 
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Example 3.2 


In the assignment 
A := B* C/D 
multiplication will be performed followed by division. 
However, in the assignment 
А := B*(C/D) 
division will be performed first followed by multiplication.[] 


In the assignment 
A := B/D * C 
division will be performed first followed by the multipli- 


catíon. 
From the avove two examples it should be evident that 


though an expression is evaluated from left to right, the 
riority of operators is taken care of. Table 3.4 lists 

various arithmetic operators of PASCAL in decreasing order 

of their priority. This order is also known as precedence 


of operators. 
TABLE 3.4 Operator Precedence in PASCAL 
Р 


Precedence Operators 
4 Unary + and - , not 
3 * , / , mod, div, and 
2 9 se e vor 
1 ФУ i six Pf 


eee ee ee cee Sr aan a EEE‏ ے 

It is also evident from the two examples above that the 
precedence of operators within an expression may be overri- 
dden, if needed, by appropriate placement of parentheses. 
We shall discuss expressions again in Section 2:49: 


3.7 INPUT AND OUTPUT OF DATA 


While writing a PASCAL program, one uses identifiers to rep- 
resent items or objects of interest. Thus, іп our discount 


formula given as 

discountprice := normalprice - 0.15 * normalprice 
we have used the identifiers discountprice and normalprice 
to denote (or to refer to) the discounted price of an item 


and the normal price of that item. When the above assignment 
statement has to be executed by a computer, the value of 
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normalprice must be known. 

Further, after the computer has evaluated discountprice 
їс should display it in a suitable form so that we know the 
result. 

These two operations, namely inputting data to and out- 
putting data from the computer, can be coded in PASCAL by 
means of the read and write statements. 

Suppose that it is desired to input the value of normal- 
price. The following statement can be used for this purpose. 


read (потпаіргісе) 


Similarly, if it is desired that the computer should print 
out the value of discountprice, the following PASCAL state- 
ment can be used 


write (discountprice) 


Thus, a sequence of PASCAL statements that reads (or 
inputs) the normal price of an item, computes its discounted 
price assuming 15 per cent discount and prints it, can be 
written as 


read (normalprice) ; 
discountprice :- normalprice - 0.15*normalprice ; 4) 
write (normalprice) ; 


The above program segment has three statements separated 
by the symbol semicolon (;). Later in this chapter, we shall 
rewrite (4) as a complete PASCAL program. Thenext example 
presents another use of the statements introduced till now. 


Example 3.3 


It is desired to compute the roots of the quadratic equation 
ax? + bx +c = 0 


for given values of a, b and с, The computer should input 
the values of a, b and с and print out the two roots. 

We shall write a sequence of PASCAL statements which can 
be used to compute the roots of the quadratic equation ass- 
uming that the roots exist and are not complex. The desired 
PASCAL program segment appears below. 


read (a,b,c); 

descr := b*b - 4.0 *a*c; 

multipiier :- 1/(2*a); 

rootl := (-b + sqrt (descr))*multiplier; 
root2 := (-b sqrt (descr))* multiplier; 
write (rootl, root2); 
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When the above program segment is executed, the computer 
will first 'ask' for the values of a, b and c. These may be 
supplied via the standard input device (a terminal or a 
card reader is the most likely input device available for 
inputting data). 

Having obtained these input values, descr will be cal- 
culated, followed by multiplier and then the two roots, de- 
noted by rootl and root2. Finally, the write statement will 
cause the computer to print or display the values of these 
roots on the standard output device (a CRT or a printer is 
the most likely output device available). 

Note the use of the function sqrt in the above program 
segment. As was mentioned earlier, sqrt is a predefined 
function which can be used to compute the square root of 
non-negative real numbers. 

It may be noted that the statement 


read (a, b, c, d) 
is equivalent to the sequence of statements 
read (a); read (b); read (c); read (4); 
similarly, the statement 
write (a, b, c) 
is equivalent to the sequence of statements 
write (a); write (b); write (c); 


3.8 WRITING A COMPLETE PASCAL PROGRAM 


We are now armed with all the elementary tools required 

to write some simple PASCAL programs. Figures 3.5 - 327 

describe the syntax of a PASCAL program. These figures do 

not describe all about PASCAL programs. Only those features 

that are required for writing simple programs are described. 
An examination of Figs. 3.5 and 3.6 reveals that (4) 

is a complete PASCAL program except for the program heading 


identifier 


FIG. 3.5 Syntax of а PASCAL program 


і 
" 
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constant declaration 


8 variable declaration I. 


compound tail 


FIG. 3.6 Syntax of a PASCAL block 


and declarations. We have rewritten (4) as a complete 
PASCAL program as shown іп Р3.1. In this program, note that 
the program header consists of the keyword program followed 
by an identifier which can be treated as the name of the 
program. Immediately following this name is a list of 

certain standard identifiers. These identifiers refer to the 
standard input and output devices used by the program (note 
that the read and write statements when executed will perform 
input and output on these devices), 


же Ж» 
o 
FIG. 3.7 Syntax of a compound tail 


In P3.1, the identifiers input and output in the first 
statement refer to the standard input and standard output 
devices on the computer on which this program will be exe- 
cuted, - 


Comments іп a PASCAL Program 


In P3.1 observe the three lines immediately following the 
program statement. These lines describe, in English, the 
computation performed by the program. Such descriptive stat- 
ements in a program are called comments. They can be placed 
anywhere in a PASCAL program. However, they must be enclosed 
within the symbols (* and *), 


"Ue xr. 9" > а бөл. 
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PROGRAM SALEPRICE (INPUT, OUTPUT)? 
* THIS PROGRAM COMPUTES THE SALE PRICE ж) 
* OF AN ITEM FROM ITS NORMAL PRICE AND ж) 
(ж THE DISCOUNT RATE ж) 
VAR 
NORMALPRICE, DISCOUNTPRICE : REAL: 
BEGIN 
WRITEC’NORMAL PRICE PLEASE : *'»j 
READ (NORMALPRICE?; 
DISCOUNTPRICE :- NORMALPRICE ~ 0.15 ж NORMALPRICE; 
WRITELNC’ DISCOUNTED PRICE : ',DISCOUNTPRICE)D; 
END 


NORMAL PRICE PLEASE ? 100.0 
DISCOUNTED PRICE : 85.0 


P3.1 A PASCAL program to compute sale price of an item 


Comments are ignored by the PASCAL compiler when it tran- 
slates the program into the computer's machine language. They 
are meant for those humans who will read the program for one 
reason or the other. As we proceed further in this text, we 
shall find comments used freely in programs in order to imp- 
rove their clarity. 

At this point in the text, we can only advise the ргов- 
pective programmers to annotate their programs with suitable 
comments. The utility of these comments will be realized by 
programmers when they are at an advanced stage in this text. 


3.9 ANOTHER LOOK AT EXPRESSIONS 


Expressions in PASCAL are more powerful than what we have 
learnt till now. In this section we shall describe various 
arithmetic, logical and relational operators available and 
how these can be used correctly and effectively. 

Syntax charts shown in Fígs. 3.8 - 3.11 describe the 
syntax of simple expressions in PASCAL. As can be verified 
from these charts, the following are all valid simple expre- 
ssions according to these charts: 


X 

KX EYI *CPRQ) 
I DIV (J+1) 

I MOD ((J+1)/K) 
P AND Q OR R 


Though all the expressions given above are syntactically 
valid (i.e. they conform to the syntax charts) they may not 
be valid PASCAL expressions unless certain other criteria 
are also satisfied. These criteria are described below during 


ч 
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our explanation of various types of expressions. 


Arithmetic Expressions 


Expressions that yield a number as a result upon evaluation 
are called arithmetic expressions. For our purposes, an ari- 
thmetic expression can yield either an integer or a real 
number as a result. The operators +, my div and mod 


Can be used in an arithmetic expression (see Figs. 3.10- 
Зан 


simple 


expression 


expression 


“А 


г. а 
FIG. 3.8 Syntax of expressions (опе ог more simple expressions % + 
separated by operators constitute an expression) 


factor 


FIG. 3.10 Syntax of a term 
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constant 


variable 


Qe] 
Pdl 
FIG. 3.11 Syntax of a factor 


The type of value that an expression yields upon evalua- 
tion depends on the types of its constituent operands. Thus, 
an expression which involves only integer variables and con- 
stants will always yield an integer value. For example, the 
value of the expression 


(itj)* Кж 5 


is an integer if i, j and k are identifiers of type integer. 

There is one exception to the above rule. When the / op- 
erator is used for division, the result is always a real 
number. Thus, the expression 


18/6 
will yield 3.0 and not 3. Similarly the expression 
22/7 


will yield 3.14 P 

When integer division is desired, the div operator can be 
used. Thus, the value of 18 div 6 is 3 and 22 div 7 is also 3. 
The operands of div must be of type integer whereas real op- 
erands are also allowed with the / operator. Thus, it is in- 
correct to write 14.9 div 3 or 17.8 div 3.81 or X div Y 
(where X and Y are reals). 

The mod operator, like div, cannot be used with real op- 
erands. 

Let us now examine the expression 


(х+у) % (5 div 3) 


where x and y аге reals and j is an integer. Upon evaluation, 
what type of value will this expression yield? As че know, 
evaluation proceeds from left to right. Thus (x+y) will yield 
a real result (call it r) and then (5 div j) will yield an 
integer result (call it 1). Now, r*i will be evaluated after 
converting the integer 1 to a real value. Note that type con- 
version from one type to another is automatic in this case, 


a 


eee 


82 Introduction to PASCAL 


In all the four arithmetic operators +, -, * and /, when- 
ever the type of one of the operands is real and the other 
integer, the latter would be converted to real before perfor- 
ming the operation. This rule is obviously not valid for div 
and mod operators which do not permit real operands. 


Truncation and Rounding 


In PASCAL, wherever real-valued expressions are allowed, any 
real operand may be replaced by an integer operand without 
affecting the correctness of the expression. As mentioned 
above, if necessary the conversion from integer to real type 
is done automatically (by the compiler). 

However, where real-valued expressions are not permitted, 
e.g. in div, the compiler would indicate an error if instead 
of integer operand, a real operand is used. In such cases, 
the compiler does not automatically do conversion from real 
to integer. Instead, the programmer has to indicate this con- 
version explicitly. 

Conversion from real to integer can be performed by 


using the trunc or round functions. Trunc takes ai real num- 
ber as argument and produces a truncated integer Sehe res- 
ult. 


As trunc yields an integer value, it is perfectly legal 
to write i 


trunc (x) div 1 


where x is real and i is integer. 

Also, as round yields an integer result, it can be used, 
for example, as an operand of div or mod operators. The exp- 
ressions round (x) div 5 ог round (p*q/r) div trunc (p/q) 
are valid. 


Assigning Numerical Values 


Care must be taken in assignment statements that types of the 
left side variable and the right side expression do not mis- 
match. An assignment is of the form 


v = e 


If v is of type real (integer) and the expression denoted by 
e yields a real (integer) value, there is no type mismatch. 
If e produces an integer value and v is real,the value of e 
will be automatically converted to real. However, if v is 
integer and e produces a real, the trunc or round function 
must be used to explicitly specify the conversion from real 
to integer. 
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If x, y, z are real and 1 and j are integer, the 
following are valid assignments: 


x іт у % 2 

х := j div 7 

j := trunc (y+z) 

j := round (y+z) 
However, the following assignments are invalid 


j := x+y 
j= 1/5 


3.10 MORE ON INPUT AND OUTPUT IN PASCAL 


The input and output statements were introduced earlier in 
their simplest form similar to read and write, we have the 
readin and writeln statements. Figures 3.12 and 3.13 descri- 
be the syntax of the read, readln and write, writeln state- 
ments of PASCAL. To illustrate their use, consider the 
following 


readin (x, y, 2); 


The above statement would cause three successive values to 
be read from the beginning of a new line and assigned to var- 
lables x, y and z respectively. Note the difference between 
the above readln and the following read 


read (x, y, z) ; 


cur 


FIG, 3.13 Syntax of write/writeln statements 
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This read statement would result in the same action as that 
of readin except that now the values will be read from the 
same line. However, if at least 3 values are not available 
on the same line, then remaining values will be obtained 
from the next (new) line. The next example illustrates this 
point. 

Note that for those who will input data through cards, 
a new line corresponds to the next card. For those who input 
data through a display terminal, a new line corresponds to 
the line that begins immediately after the carríage return 
and line feed characters are typed in. 


Example 3.7 


Consider the following sequence of statements: 


fend (Жуу) 22 
read (2, р) : 


Assume that x, у, 2 and p are of type integer. Now, if data 
is input as (on two lines) 


17 -82 129 
38 27 


the values 17, -82, 129 and 38 will get assigned to variables 
X, y, 2 and p respectively. 
However, if the same data are input for the statements 


readin (x, y) 
readln (z, р) 


the values 17, -82, 38 and 27 will be assigned to the variable 
x, у, 2 and p respectively. O 

Only integer, real and character values can be input 
through the read or readin statement. The next example illu- 
strates how data shculd be prepared for input. 


Example 3.8 


Let R, I, Cl and C2 denote four variables of type real, 
integer, character and character respectively. We may use the 
statement 


readin ( R, I, Cl, C2) 


to assign values to these variables. 
The data can be input in any of the following ways: 
L5^459.5 26: AL 
2. 0.495E2 
28 
AZ 
3. 0.495E2 28 AZ 


adi d d 
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Notice that between two consecutive values, there must be 
at least one space. However, when character constants are 
being input, space should be used cautiously. For example, 
if the input data for the above readin statement are given 
as 

4$955:-28- Аг 2 


then the values assigned to СІ and C2 will be "А!" and ' ' 
(space). Thus, contrary to expectations, C2 will be assigned 
the space character and not Z. 


Data Output in PASCAL 


Analogous to the read and readln statements for input, we 
have the write and writeln statements for output. The syntax 
for these appears in Fig. 3.13. 

The write statement causes the values of to be output on 
the same line. The writeln statement always outputs values 
оп a new line. The next example should bring out this diff- 
erence clearly. 


Example 3,9 


When the sequence of statements 


write (5,7); 
Write’ (: 18.) 
write ('HELLO') ; 


is executed, thc output will appear on one line as 
5 7 18 HELLO 


However, if the word write in the above statements is repla- 
ced by writeln, the output would appear as 


5 7 
18 
HELLO 


While executing a sequence of write statements, if a line 
gets full, the next value 18 automatically output from a new 
line. 

A writeln statement without any parameters to be printed, 
merely causes the computer to skip to the next line, after 
outputting the current line, Thus, the sequence of statements 


write (5,7); 
writeln ; 

write ( 9, 12) 
writeln ; 


ot 


еч 


АТ Айым 
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would result in the following output: 


5 7 
9 12 
Notice from Fig. 3.13 that we can directly specify exp- 
ressions in a write or writeln statement. Thus, for example, 
the statement 


writeln ( a*b, рға div т, 2 ) 


is equivalent to 
tl := a*b ; 
t2 := ptq div r ; 
writeln ( tl, t2, z) 3 


Only values of type integer, real, boolean, character or 
string can be output using the write or writeln statement. 


Layout of Output 


As described above, when the values are output on a line, 
they are printed according to a standard layout. This varies 


from one PASCAL compiler to other. 
Each value is printed in a field of fixed length. In 


one PASCAL compiler, the field width for integers is 8, for 
reals it is 14, for characters 1 and for boolean quantit 

it depends on the value to be output. If the value to I 
output is TRUE then it 15 4, otherwise it is 5 for FALS 
Further, real values are printed in a standard Е notation. 


For example, the statement 
writeln ('A', 29, -728.45, 'B') 

would produce the following output: 

A 29 -0.7284500Е%02В 
Notice that the character B has been printed immediately 
following the real value. If spaces are desired between the 
two, we could instead use the following statement: 

Writsln 6 45. 20, 27282455 U “Лу B^) 


Here, the fourth value is a string of as many spaces as de- 
sired between -728.45' and the character B. Note that the 
fieldwidth for strings is the same as the number of chara- 


cters in the string. 
Controlling the Layout of Output 
The layout for output can be controlled by explicitly speci- 


fying the fieldwidth for each value output. The fieldwidth 
can be specified as an integer constant or any arbitrary 


$ a 


” 
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expression which yields an integer value. For example, when 
the following statement is executed: 


writeln ('DAY OF THE MONTH-', day : 3) 
( the output produced will be 
| DAY OF THE MONTH- 29 


Note that the value of variable day will be printed in 3 
columns. Thus, because the value is 29 (only two characters 
long) there will be one space between '-' and '2' in the out- 
put. This happens because all output in PASCAL is using right 
justified mode. If, on the contrary, it was using left justi- 
fied mode, the output would have been 


DAY OF THE MONTH-29 


For real numbers, we can specify the fieldwidth as well as 
the number of traction part digits desired to be printed. 
Thus, the following statement: 


writeln ( -728.45 : 7 : 1, -728.45 : 8, -728.45 ) 


would output 
-728.4 -728.45 -0.7284500Е%02 


If, for a real number, only the field width is specified, 
the number of digits in the fraction depends on the traction 
itself. 

Before ending ttis section, we shall write a complete 
PASCAL program to illustrate the use of various statements 
introduced in this chapter. 


Bd. 2а TEN 


{ 
р, 
| 
| 
3 
1 
4 


Ехапр1е 3,10 


It is desired to write а PASCAL program that reads two inte- 
cers representing the capacity of a water tank in gallons 
and the rate, in gallons per hour, at which the tank is 
being filled. The program must compute the total time it will 
take to fill the empty tank. The time must be expressed in 
hours, minutes and seconds to the nearest second. 

For example, if the tank capacity is 1,000 gallons and 
the tank is being filled at the rate of 45 gallons per hour, 
our program must print the output as indicated below 


TANK CAPACITY = 1000 GALLONS 
FILLING RATE = 45 GALLONS PER HOUR 
TIME REQUIRED TO FILL THE TANK - 22 HOURS 13 MINUTES 20 SECONDS 


The program to perform the above mentioned task can be broken 
down into the following sequence,of steps: 
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begin 
read and print input data; 
compute time required to fill the tank; 
print the computed time as desired 

en 


Thus, there are three distinct actions in our program. 
The first action of reading and printing the input data can 
be easily coded into PASCAL as shown below. Here, two inte- 
ger variables—tankcapacity and fillingrate—have been in- 
troduced. 


readin (tankcapacity, fillingrate) ; 
writeln ("TANK CAPACITY-', tankcapacity : 6, 'GALLONS') ; 
writeln ('FILLING RATE =', fillingrate: 4, 'GALLONS PER HR') 


The second action of computing the time to fill the tank 
is more involved. It can be performed by a sequence of arith- 
metic operations. First, the hours required denoted by the 
integer variable—hoursforfilling—can be computed as 


hoursforfilling :* tankcapacity div fillingrate ; 


The remaining capacity can be computed as 
gallonsleft := tankcapacity mod fillingrate ; 


The minutes required to fill this remaining amount will 
now be a real quantity as the filling rate could be any int 
eger. This can be computed as 


minutesrequired := gallonsleft*60/fillingrate ; 
minutesforfilling := trunc (minutesrequired) 2 


The last quantity to be computed is the seconds part which 
can be found using the quantities already computed. We thus 
have 


secondsrequired := (minutesrequired—minutesforfilling)*60 $ 


secondsforfilling := round (secondsrequired) ; 


The third and last action of our program can now be coded 
in PASCAL as the following sequence of statements. 


writeln ; 

write ('TIME REQUIRED TO FILL THE TANK=') ; 
write (hoursforfilling : 4, 'HOURS') ; 
write (minutesforfilling : 


4, "MINUTES ') 
write (secondsforfilling 4, 'SECONDS') ; 
writeln ; 


7 We сап now combine the bíts and pieces of the program 
developed above, add proper declarations and what we get is 
a complete PASCAL program as shown in P3.2. 


кш а жа аа او ي‎ 


p 
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PROGRAM TANKFILLINGTIME (INPUT: OUTPUT); 


АСІТҮ ІМ GALLONS AND ж) 
ІТ COMPUTES AND PRINTS ж) 
ANK TO THE NEAREST SECOND ж) 


(* THIS PROGRAM READS THE WATER TANK CAP 
(ж THE FILLING RATE IN GALLONS PER HOUR. 
(ж THE TIME REQUIRED TO FILL THE EMPTY T 


VAR 
TANKCAPACITY, FILLINGRATE : INTEGER; 
HOURSFORF ILL ING; MINUTESFORFILLING, SECONDSFORF ILLING: 


INTEGER; MINUTESREQUIRED, SECONDSREQUIRED : RERL; 
GALLONSLEFT : INTEGER ; 


BEGIN 
WRITE( ENTER TANK CAPACITY AND FILLING RATE '); 


READLN (TANKCAPACITY >» FILLINGRATE) » 


WRITELN? 
WRITELN (’ TANK CAPACITYz', ТАМКСАРАСІТҮ:6, ^ GALLONS’) i 


WRITELN (^FILLINGRATE-',FILLINGRATE: 4, * GALLONS PER HOUR *) 
«жСОМРЦИТЕ TIME REQUIRED FOR FILLING THE ТАНК») 

HOURSFORF ILL IN ::TANKCAPACITY DIU FILLINGRATE ; 

GALLONSLEFT :- TANKCAPACITY MOD FILLINGRATE ; 

MINUTESREGUIRED: = GALLONSLEFT ж 6GO/FILLINGRATE + 

MINUTESFORF ILLING: = TRUNC(PINUTESREQUIRED) ¢ 
SECONDSREQUIRED::- (MINUTESREQUIRED-MINUTESFORF ILL ING) *6O 4 


SECONDSFORF ILL ING: = ROUND‘ SECONDSREQUIRED) ; 
(ж MOW PRINT THE COMPUTED TIME ж) 


WRITELN? 
HRITEC('TIME REQUIRED TO FILL THE TANKz') } 


WRITE(HOURSFORFILLING: 4, * HOURS’)? 
WRITE (MINUTESFORFILLING : 4, ” MINUTES’) 
WRITE (SECONDSFORFILLING : 4, ° SECONDS’) 5 


WRITELN ғ 
END. 


ENTER ТАНК CAPACITY AND FILLING RATE 
10000 150 


танк CAPACITY: 10000 GALLONS 
FILLINGRATE= 150 GALLONS PER HOUR 


TIME REQUIRED TO FILL THE TANK= 66 HOURS 40 MINUTES 0 SECONDS 


P3.2 Program to compute the filling time of a water tank 


3.11 SUMMARY 


In this chapter, we have introduced many of the building blocks 
of a PASCAL program. Identifiers, variables, constants and 
types help us create objects in a PASCAL program. Expressions 
and assignments have been defined which permit us to perform 
computations according to different formulae. Input and output 
statements have been introduced for data to be input and output 


to and from the program. 
The notation of syntax charts has been introduced as an aid 


to understand the syntax or form of PASCAL constructs, This пос- 
ation is used throughout the rest of the book. 
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EXERCISES 


Identify invalid constants 
3 3.0 3.0E10 3.0E-10 
-3.0E-10 


Evaluate the following expressions (which are correct): 


15 + 3 div 4 mod 8 

((15+3) div 4) mod 8 

15/3 * 18/10 % 5 

7/3 div 2 

6<4and 5 >7o0r8<9 

6 < 4 and false or true and not false 
hand сот. АТСА 
3# 4 

1А" < 'B' ор 7 < 8 апа 'Z" > 'Ү! 

17.8 < 14.9 or true 

round (21/4) < 5 and trunc (21/4) < 5 
(round (21/4) + trunc (21/4)) div 2 = 
pred ('A') < ord ('B') 

abs ( ord('B') -ord ('Z')) < 20 

succ (falso) = pred (true) 

succ (3.5) < 4 

(3.5 < 20) and true or not ('A" > '2') 
7 + (6+(5+(4+(3+2 div 1) div 2) div 3) div 4) 


21/4 


Describe the output produced, when the following statement 


sequences are executed: 
(a) write (@#' : 1,1); 


write OE : 2,2); 
write (t*r : 3,3); 
авіа O Ut s 10) 5 
writeln ( ' THAT IS ALL ' ) 
(b) writeln ( 1 : 1, 1:5) ; 
writeln ( 1: 2, 1:3) ; 
writeln ( 1 : 3, 1:2) ; 
writeln ( 1 : 4, 1:1) ; 
(c) writeln (15.5 : 5:1 , 15.5 : 5.1 ) 


Translate the following expressions into PASCAL 
(assume that all quantities are real): 
(a) b 


En 


a 


3.5 


3.6 
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The three point Simpson's rule for approximating the integral 


T= Т f(x) ах 
is given as 
h 
і-% [fo + 4 £1 + £2] 
where h = ZÊ, fi = f (at if h) 
Develop а program for approximating the integral 
1/2 
sin (x) dx 


Write a program that reads: 

(i) three integers denoting the departure time of an aircraft in 
hours; minutes and seconds respectively, and 

(ii)the flight time in seconds. 

The program computes the arrival time of the aircraft in hours, 

minutes and seconds. 

Print out the departure time, flight time and arrival time ina 

pleasing format. 


4 


CONTROL STRUCTURES 


/ 


Іп the previous chapter we have seen how PASCAL programs сап 
be written to compute output values from given input values, 
` The programs written in the previous chapter are of a stri- 
ctly sequential nature. This implies that the statements of 
à the program are executed precisely in the sequence in which 
` they appear in the program. We can abstract such a PASCAL 
| program ав 


jte begin 
Й 
ч 5, H 
5 
епа. » 


where the statements $1; $55 Si are one of input, output 


or assignment. Figure 4,1 shows, using a flow chart, the se- 
quence іп which these statements are executed. 

In fact, every PASCAL program can be abstracted as men- 
tioned above. А sequence of PASCAL statements, enclosed bet- 
ween the keywords begin and end, is called a compound state- 
ment. However, we have only learnt of the simplest of PASCAL 
Statements, assignment and input/output, which permit only 
sequential execution. 

Most real life programming problems require repetitive 
and selective computation. It is the computer's ability to 
perform such kind of computation, without any errors, that 
makes іс a powerful and attractive tool. 

In this chapter we shall learn those PASCAL statements 
which can be used to program problems that require repetitive 
and selective computation. Such statements are known ав 
structures or control statements ín programming parlance 
because they can be used for controlling the sequence of 
execution of statements іп a program. Only the following basic 
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FIG. 4.1 Sequential execution 
of a PASCAL program 


control statements are introduced in this chapter. 
while - do 


repeat - until 
for - do 
if-then-else 

* case - of 


Several others find their place in subsequent chapters. 


4.1 CONDITIONS 
Any expression that yields a boolean value on evaluation, 
can be used as a condition. Thus, the syntax of conditions is 
the same as that given in Fig. 3.8 іп the previous chapter.In 
all but one of the statements we shall learn іп this chapter, 
conditions would be used. 

The following are some valid conditions: 


descriminant » 0 
stoklevel < minimumstoklevel 
(itemcode = "А! or itemcode = 'B') level < 40 


not (x < y and p >q ) 
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Obviously, a condition is either true or false depending on 
the values of its constituent operands and operators. 


4.2  REPETITIONS 


Many computations are programmed easily by repeating the ex- 
ecution of a sequence of statements several times while a 
condition remains true. А simple example stems from the pro- 
gram of computing the sum of the first N odd numbers. The 
problem can be stated alternatively by mentioning that it is 
desired to compute the sum of the series 


143 f 54... *(2 * N-1) 


Denoting each term in the series by the variable TERM 
and the partial sum of the first K terms by the variable SUM, 
we know that the sum of the first (К+1) terms can be obtain- 
ed by executing the statement 


SUM := SUM + TERM 


Here, TERM has the value of the (K+l)th term. Each time we 
add a TERM to SUM, the TERM can be modified as 


TERM := TERM + 2 


So that it assumes a new value—that of the next term in the 
series. 

It shculd be obvious that the two assignment statements 
need to be executed exactly N times in succession to obtain 
the sum of the given series. One question, however, is yet 
unanswered, What should be the initial values of TERM and 
SUM? As TERM denotes the next term to be added, initially it 
Should have the value 1. Further, as SUM denotes the sum of 
the first К terms, its initial value must be 0 as nothing has 
been added to it as yet. 

The following statements should therefore be executed 
before repeating the two mentioned earlier: 


TERM := 1 
SUM := 0 


What now remains to be done is to somehow express, іп 
PASCAL, the fact that the statements to update SUM and TERM, 
mentioned earlier, must be repeated while the value of TERM 
remains less than or equal to the last term in the series— 
(2*N-1). This fact can be easily, and clearly, expressed in 
PASCAL by using a while statement as follows: 


TERM := 1; 
SUM := 0 ; 


EOE гін —— ө ө ө ө ө ө Ө НЫӨ ма “жн. MF" айға 5а 22 


Ce ут 
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while TERM « (2*N-1) do 
begin 
SUM := SUM + TERM ; 
TERM := TERM + 2 
end (* end of while *) 


By adding a read statement for 
reading the value of N, appen- 
ding a write to print the 
value of SUM and putting in 
the declarations, the above 
can be converted into a compl- 
ete PASCAL program to compute 
the sum of first М odd integ- 
ers. 

The flowchart in Fig. 4,2 
illustrates the sequence in 
which the above statements will 
be executed. Тһе block inside 
the dotted rectangle in Fig. 
4.2 expresses how the while 
Statement, used above, will be 
executed. 

We shall discuss the syn- 
tax of while statement in the 
next section. In Fig. 4.2, we 
observe the following: 

1. There is a condition 
which controls the exe- 
cution of the two stat- 
ements 


SUM := SUM + TERM ; 
TERM := TERM + 2; 


FIG. 4.2 Execution sequence for 


2. The repetition termin- computing the sum of 
ates when the condition first N odd integers 
becomes false. (> 0) 


The condition together with 
the two statements mentioned 
above is called a loop. The condition is also called the loop 
terminating condition and the two statements constitute the 
loop body. Whenever we specify repetition in PASCAL, we shall 
do it using loops. The while statement is one of the three 
statements we shall leam in this chapter for forming loops, 
A large number of other problems requiring repetitive 
execution are stated and solved in subsequent sections. 


ees ОНОРЕ УС Ура CUR I EARS e IN T TT 
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EL Eder. 


4.3 THE WHILE STATEMENT 


The while statement can be used for programming loops in 
PASCAL. Figure 4.3 shows the syntax diagram for the while 


Соме) boolean expression 5 statement 


FIG. 4.3 Syntax of while statement 


Lo суын di 


we? 


statement. As is evident from this figure, the general form 


of while is 


uM —»— X 


while C do 5 ; 
tion and S is a PASCAL statement— 


input/output) or compound, Figure 
cting how the while statement 


where C denotes any condi 
simple (like assignment, 
4.4 shows the flow chart depi 


is executed. 


d. 


a 


FIG. 4.4 Execution of the 
while statement 


The next few simple examples illustrate the use of while. 


Example 4.1 


^ 
Two natural numbers x and y can be multiplied by a sequence 


——— و‎ раци = 


"T" - “ҮР н ү" "Ж 
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of additions. The following PASCAL program segment does 
this job: 


read (x, y) ; 
Prod := 0; yy := y ; 
while yy # 0 do 
begin 
prod := prod + x ; 
УУ ЕСА 
end ; /* end of loop */ 
writeln ("PRODUCT ОҒ", x : 4, 'AND', у: 4, '=', prod : 6) ;0 


А 

ч 

M. 

1 м 

Example 4.2 : 
The following program segment reads and prints the first 


non-blank character in a sequence of input characters: 


read (ch) =; 
while ch = ' ' do read (ch) ; 
write (ch) ; 


Here, ch is a variable of type char. [] 


Example 4.3 


The factorial of a non-negative integer N can be easily com- 
puted using the following program segment. The segment uses 
the formula 


Wirerlc* 205 3 OEE 
to compute the factorial. 


read (N) ; 
factorial := 1 ; next := 2; 
while next < N do 
begin 
factoríal := factorial * next $ 
next := next + 1 
end ;(* of factorial computation loop *) 


Note that if the value of Н is 0 or 1, the loop body in the 
above while statement will not be executed even once. mi 


4.4 THE REPEAT STATEMENT 
T$. >. а р 


Another way of forming loops іп PASCAL is with the aid of the 
repeat statement, Figure 4.5 shows its syntax and Fig. 4.6 
Shows how it is executed. We can write the general form of 


NU". х-ы тел, «лерде ж 
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repeat ав 


repeat S until C ; 
e S denotes a sequence of PASCAL sta 


wher tements and C is the 
condition. 


boolean expression 


FIG. 4.5 Syntax of repeat statement 


An examination of Fig. 4.6 
and comparison with Fig. 4.4 
reveals the following subtle 
differences between the oper- 
ation of the while and repeat 


statements: 
1. In repeat, the condi- 


tion is tested after 
executing the loop body 
which is executed at 
least once even when 
the condition is true 
initially. 

2. In while, the loop | 
body is executed as , 
long as the condition 


FIG. 4.6 Execution of the is true. In repeat, 


repeat statement the loop body is exe- 
cuted as long as the 


condition is false. 
Stated in other words, the while loop terminates when the 
condition becomes false, whereas the repeat loop terminates 
when the condition becomes true. 
Due to the first difference mentioned above, the repeat 
statement should be used only when it is known that the con- 


dition is not true initially. 
The next few simple examples illustrate the use of the 


repeat statement. 


Example 4.4 


The program segment to compute factorial of a non-negative 
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integer N using the repeat statement is shown below. 
read(N) ; 
factorial : 

next := 1; 

Е 


repea 
factorial := factorial * next ; 
next := next + 1 

until next >N 


= 1:24 


Notice the difference between the above segment and the one 
given in Example 4.3. The initial value of next is 1 in the 
above segment (can you make out why?) and the condition now 
is 


next > н [Û] 
Example 4,5 


The following program segment prints the first K, K being 
positive, alphabets beginning with A: 


read (K) ; 
nextalpha := "А"; 
repeat 
write (nextalpha) ; 


nextalpha := висс (nextalpha); 
К = K-1 
until K= 0 ; 


writeln ; 


(жә, 


Here nextalpha must Ье a variable of type char. If the value 
of К is 0, the above segment will still print at least one 
alphabet. [] 


MOT ee 


4.5 ANOTHER LOOK AT LOOPS 


А closer look at the Program segments presented till now in 
thís chapter should reveal the following characteristics of 
loops: 

1. The loop constructed using while or repeat is always 
preceded by initialization of the variable involved 
in the loop condition. 

2. This variable is modified within the loop. 

It 1s imperative for every programmer to bear the above two 
characteristics in mind. If a loop condition involves more 
than one variable, as will happen in later examples, each 
one of these must be initialized before the loop is executed 
To understand the implication of violating the 


Мяг 
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characteristics mentionec above, 
gram segment: 
read (N) ; 
factorial : 
next := 2; 
while next < М do 


begin 
- factorial := factorial * next 


‘consider the following pro- 


— " 


= 1 


еп 


I 


The above loop is guaranteed t 
next € N 


o terminate when the condítion 


becomes false. However, for any value of N »2, will it ever 
become false? The answer to this question is an obvious no 
because the value of the variable next is never modified 
inside the loop body. It, therefore, always remains 2, imp- 
lying thereby that the loop condition will always be true! 
‘By making this mistake, we have created what is known 
amongst programmers as an infinite loop—a loop that would 
néver terminate. Such mistakes are very common with progra- 
mmers, particularly novices. 
4 А loop not possessing characteristic 2 mentioned above 
is not the only one that сап be infinite. Several other 
mistakes оп a programmer's part could make it infinite. Un- 
ortunately, no one has a list of all such mistakes. Thus, 
the only advice which can be given at this point is that 
after forming a loop, satisfy yourself that the loop will 


% 


definitely terminate—in a finite amount of time. 
4.6 THE FOR STATEMENT 2 


ағай >. 


РР УР ТҮҮ 


In many cases, the loop required is such that we know in 
‘advance how many times the body will be executed. In the 
factorial program shown in Example 4.3, we know that the 


loop will be executed exactly (М-1) times. Similarly, in 
Example 4.5, we know that the loop is executed precisely K 
times. However, in Example 4.2 the number of times the loop 
18 executed depends on the number of leading spaces in the 
input text. Thus, while forming the loop we cannot specify, 
by any simple formula, how many times the loop is to be 
executed. 

The for statemenr provides a compact way of specifying 
a loop in PASCAL when the number of repetitions of the loop 
body can be specified by a formula. Figure 4.7 shows the 


вуісах of the for statement. It has two general forms as 
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shown below: 
for id := ej to е; do S ; 
or id := e, downto е; do 5; 


Here id denotes an identifier,e; and е; are expressions that 
must yield values of the same type as that of id, and S is a 
valid PASCAL statement. The identifier, id, is also known as 


FIG. 4.7 Syntax of for statement 


for index. Figures 4.8 and 4.9 show how the two for state- 
ments are executed. From these figures it should be evident. 
that the index must be of a type for which the succ and pred 
are defined (thus it cannot be of type real), 


| 
! 
| 
ТЕ 
| 
| 
| 
І 
» 


т Цин up put сен айын өтеле کک‎ mum qum. 


MR, ес IBN 
FIG. 4.8 Execution of for FIG. 4.9 Execution of for 
statement with statement with 
increasing index decreasing index 
values values 
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To illustrate how it works, consider the following for 


statement sequence: 

SUM з= 0; 

for К := 1 to N do SUM := SUM + K ; 
When this statement is executed, the loop body is executed 
exactly N times with the values of K varying from 1 to N 


in steps of 1. As К goes from 1 to 2 and so on to N, the 
value of sum increases from 0 to N (N-1). Thus, essentially, 
2 


the above statements sum up the first N natural numbers. 
The following for statement can be used to print num- 


bers from N to l in steps of -1. 
for К := М downto 1 do write Chics 


The factorial of a non-negative integer can be computed 
using the following program segment: 
read (N) ; 
factorial := 1; 
for i := 2 to М do factorial := factorial * i ; 
Note that the above segment 15 equivalent to the one given in 


Example 4.3. 
To print K letters beginning with 'A'. we can use the 


following program segment: 


nextch := 'A' 


begin 
write (nextch) ; | 


nextch := succ (nextch) 
end; 
The next example develops a more useful program using the 
for statement. 


Example 4.6 (Fixed deposits) 


Bank interest rate, for fixed deposits, usually increases | 

with the period for which the deposit is made. А client, 

making a deposit of a certain principal amount, may like 

to know the final amounts for different periods. This 

will help him decide the period, in years, for which he | 

should deposit the amount. j 
Let us assume that the bank permits yearly periods of at Г 

least one and at most ten. The rates for compound interest 

are known for each period. The program given in P4.1 inputs 

the principal amount and produces a table showing the períod, 

the corresponding interest rate, which is also input, and 

the final amount payable to the client, Note that the final 

amount using compound interest is given by 


final amount * cab er 10? x principal O 
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PROGRAM FIXEDDEPOSIT (INPUT, OUTPUT)? 
(ж THIS PROGRAM COMPUTES AND PRINTS A TABLE OF AMOUNTS *) 
(ж DUE AFTER INVESTING A GIVEN AMOUNT FOR A GIVEN PERIOD ж) 
(ж OF TIME.THE INTEREST RATE IS ALSO INPUT. ж) 
VAR 
PRINCIPLE, INTEREST, FINALAMOUNT: REAL; 
PERIOD : INTEGER; 
BEGIN 
WRITEC’PRINCIPLE AND INTEREST PLEASE : '); 
READ (PRINCIPLE, INTEREST); 
WRITELN? 
WRITELN ('PRINCIPLE z',PRINCIPLE:8:2,' INTEREST z',INTEREST:6:2); 
HRITELN; 
WRITELN ('PERIOD(YEARCS22^:15, "FINAL AMOUNT’: 16)07 
FOR PERIOD :- 1 TO 10 DO 
BEGIN 
(ж COMPUTE FINAL AMOUNT FOR PERIOD «) 
(ж NOTE THAT THE FORMULA FOR COMPUTATION HAS BEEN E 
(ж REWRITTEN USING LN AND EXP FUNCTIONS жо 
FINALAMOUNT: :EXP(PERIODSLNCI*INTERESTZ1002 «PRINCIPLE; 
WRITELN (PERIOD:8, FINALAMOUNT: 20:2) 
END 
END. 


PRINCIPLE AND INTEREST PLEASE : 
2000.0 9.5 


PRINCIPLE = 2000.00 INTEREST = 9.50 


PERIOD(YEAR(S)) FINAL AMOUNT 
2190.00 
2398.05 
2625.86 
2875.32 
3148.48 
3447.58 
3775.10 
4133.74 
4526.44 
4956.46 


oomxounrunme 


- 


P4.1 Program to produce a table of due amount 


4.7 THE IF STATEMENT 


In programming, many problems require that the computer ехе- 
cutes one of two sets of statements depending on the value 

of a condition. This kind of conditional selection of state- 
ments for execution can be coded in PASCAL using the if sta- - 
tement. Figure 4.10 shows the syntax chart for this statement. 


boolean 
Q expression (hen ) statement 


FIG. %,10 Syntax of if statement 


As is evident from Fig. 4,10, the if statement has two 
general forms given as 


1. if C then 5) else S; ; 
2. if C then 5); 


аш ао DUST ا‎ 


һы м E. a 


OE ee te Ж 5241. сада сыла а TaN 
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where S1, 52 denote PASCAL statements and C denotes a con- 
dition. Figures 4.11 and 4.12 illustrate how these two state- 


ments are executed. 


г---- 
І 
| 
| 
І 
| 
| 
| 
EI— 
FIG. 4.11 Execution of FIG. 4.12 Execution of 
if-then-else if-then 
statement statement 


The following statement, for example, shows how the ma- 
Ximum of two integers x and y can be assigned to another 
variable max. 


if х < y then max := у else max :* х ; 


To compute the maximum of three integers x, y and z and 
assign the value to variable, max, the following program 
segment can be used: 


таф xi ys $23 
if x < y then max := y else max :* x ; 


if max < 2 then max := z ; 
From the above examples it should be evident that when 
a decision is to be made about the execution of one state- 
ment based on a condition, we use the if-then statement. 
However, when the choice is between two statements, the if- 
then-else is used. 


4.8 THE CASE STATEMENT 


As we have learnt earlier, the if statement can be used to 
select the execution of one or one out of two alternatives 
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depending on a condition. Several situations arise where one 

of many alternatives is to be selected for execution. The 

case statement in PASCAL can be used to perform this task. 

The syntax of case statement appears in Fig. 4.13. E 


expression 


FIG. 4.13 Syntax of case statement 


How this statement is executed 
is shown in Fig. 4.14. 

To illustrate the use of 
case statement, assume that one 
of three distinct tasks is to 
be performed depending on the 
value of a variable I. If I is 
1 then the program should find 
and print the LCM of the 
two numbers М1 and N2 should 
be printed, for I equal to 
2 the GCD of М1 and N2 should 
be printed, and for I equal to 
3 the value gf М1 raised to the 
power М2 (NIN?) must be printed. 

Though this logic can be 
expressed using the if statem- 
ent, a case statement serves FIG. 4.14 Execution of case 
the purpose well as shown below. statement 


expression 


case Dot 
1: (*statements to find LCM of N1 апа N2*) 
2: (*statements to compute GCD of Nl and N2*) 
3: (*statements to evaluate Nl 2 ж) 
end 4 
As should be evident from the above statement, depending 
upon the value of I, exactly one of the three alternative 
tasks will be performed. If the value of I is not 1, 2 or 3; 
then none of these alternatives will be selected for execu- 
tion. 


АА, мі 


SS rt p —— 5 
y “ 
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Let us examine another case statement given below. 


case (а*х) mod m of 
1,3,5 : write ('NUMBER IS ODD') 


2,8,6 : write ('NUMBER IS EVEN') 


end 
Assuming that a, x and m are integers and the value of m is 
7, the above statement will cause one of two messages to be 
printed out. If the value of the expression (ax) mod m is 
odd, 1 or 3 or 5, then the message 


NUMBER IS ODD 


will be printed. Otherwise, if the value is any of 2, 4, 6, 
the message 
NUMBER IS EVEN 


will be printed. 
К, Notice that if а and x are less than m the expression 


(ax) mod m can have only 6 distinct values for m= 7 if a 
| and x ате non-zero. These six values have been grouped into 
A two cases in the above statement. 
а The expression іп the two case statements presented above 
4 are of type integer. Іп general, expressions of other types 
are also permitted. These are discussed in subsequent chap- 


1 ters. 


Finally, we end this section by presenting the flow chart 
form of the case statement in Fig. 4.14. In this figure, li, 


‘ L2,...,Lg are the n possible values of the expression and 
$1, $52,.,.,9ц are the corresponding statements to be Kw Y 


4.9 EXAMPLES 


The basic control structures available in PASCAL have been 
presented in isolation in the previous sections. А ветіев of 
examples presented in this section are intended to illustrate 
the use of one or more of these in simple but useful PASCAL 


programs. 


Example 5.7 


We shall write a program to compute the roots of a quadratic 
equation ax? + bx + c = 0. The program should read the values 
of a, b and c (all are non-zero) compute the roots and print 
them out. If the roots are complex, the real and imaginary 
parts of the roots must be printed out. In any case, one of 


UTE 
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the two messages 
ROOTS ARE REAL 
ROOTS ARE COMPLEX 

nust be printed out on a line preceding the roots. » 

4 The program is quite simple to write and is given in 4 

P4.2. It first reads the coefficients a, b and c and then 

computes the descriminant b?-4ac. The multiplier 1/2a is 


also evaluated now (why?). 

The descriminant is then tested to check for any comp- 
lex roots. If it is positive, the two real roots are comp- 
uted and printed; otherwise the complex roots are computed 
and their real and imaginary parts printed out. 


PROGRAM GUADSOLUER (INPUT, OUTPUT)? 
TS OF A QUADRATIC EQUATION *) 


(ж PROGRAM TO FIND ROO 
VAR 
A,B,C : REAL; 


RDOOT1,RDDT2 : REAL; 
: REAL; 


REPART: IMAGPART : 
DESCR, MULTIPLIER : REAL? 

(ж THIS PROGRAM COMPUTES AND PRINTES *) 
(ж THE ROOTS OF А QUADRATIC EQUATIN ж) 


BEGIN 
WRITE ( ’ COEFFICIENTS оғ THE EQUATION PLEASE : 70; 


READ (а, В,С); 
(ж COMPUTE DESCRIMINANT AND DECIDE ж) 
(x WHETHER ROOTS ARE REAL OR IMAGINARY жо 


DESCR :=B*B - ажа*С; 


MULTIPLIER :2:0.5/Я; 
IF DESCR >= 0 
THEN 
BEGIN 
(ж ROOTS ARE REAL ж) 
ROOT1: =(-B+SORT(DESCR) DX MULTIPLIER? 
RODT2:- -B-SORT(DESCR) )& MULTIPLIER; 
WRITELN? 
WRITE ('ROOTS ARE REAL '); 
WRITE ‹воот1:10:4,ВО0т2:10:4› 
END 
ELSE 
BEGIN 
(ж ROOTS ARE COMPLEX ж) 
REPART: = -B*MULTIPLIER; 
1MAGPART: zSQRT(-DESCR)*MULTIPLIER 
WRITELN} 
WRITE (’ ROOTS ARE IMAGINARY ’)} 
WRITE CREPART: 10:4, IMAGPART: 10:4) 
END 
END. 
COEFFICIENTS OF THE EQUATION PLEASE : 1.0 5.0 6.0 
-3.0000 


ROOTS ARE REAL 


P4.2 Program to solve а 


-2.0000 


quadratic equation 


күт 
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Example 4.8 


We shall write a simple PASCAL program that checks whether 
the two input characters are A followed by B or not. А suit- 
able message to indicate if this is true or not is to be 
printed out. 

To design the program, we assume that the variable NXTCH 
denotes the next character іп the input. Obviously, NXTCH 18 


pof type character. Our program will read the value of NXTCH 


and if it is equal to А, it will read another value of NXTCH. 
If the second character read is B, the message INPUT IS 
VALID will be printed out. If this is not so, the message 
INPUT IS INVALID will be printed out. This latter message 
will also be printed if the first character is not an A. Pro- 
gram P4.3 shows this logic in PASCAL. 

In P4.3, observe that А and B are character constants and 
therefore enclosed within apostrophes to distinguish them 
from variable names. 


PROGRAM CHECKINPUT (INPUT,OUTPUT):; 


і (и PROGRAM TO CHECK IF AN INPUT STRING IS THE SAME AS AB OR NOT ж) 


NXTCH : CHAR: 
BEGIN 
4ж READ NEXT CHARACTER AND COMPUTE WITH THE CONSTANT а x) 
MRITEC^FIRST CHAR PLEASE : ^»; 
READ (NXTCH); 
TF NXTCH = ‘A’ 
THEN 
REGIN 
(ж READ ANOTHER CHARACTER AND CHECK IF *) 
(ж IT IS B ж) 
WRITELN? 
MRITEC'SECOND CHAR PLEASE :”); » 
READ (NXTCH)} % 
IF NXTCH = 'B' 
THEN 
BEGIN 
MRITELN; 
MRITELNC'INPUT IS VALID’) 
END 
ELSE 
BEGIN 
WRITELN: 
HRITELNC'INPUT IS INVALID’); 
END; 
END 
ELSE 
BEGIN 
WRITELN; 
WRITELNC’ INPUT IS INUALID') 
END; 
END. 


FIRST CHAR PLEASE : A 


SECOND CHAR PLEASE :В 
INPUT IS VALID 


P4,3 Program for checking an input string 


сүттү ص‎ 
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The logic in P4.3 сап be written in an abstract form as below: 


51; 
i£ cy then 
begin 
$5 3 Р 
if с; then 53 else Sy , 
end Kc n RT | 
else Ss ; (1) E 
4 


The above form shows what is known as the structure of the 
PASCAL program P4.3. This structure clearly shows the 
groupings of various statements and not the details of each 76 
statement. Comparing form (1) with Р4.3, one can easily see ' 
that Sj corresponds to the PASCAL statement 


read (NXTCH) 


The condition cj is NXTCH = "А"; statement 52 is read 
(NXTCH) and so on. 

Note that in (1), and also in P4.3, we have not put 55 
inside а begin and end, whereas the then part of the first 
if statement is enclosed within begin and end. This can be 
explained easily. Whenever the then or the else part of an 


if statement is just one more PASCAL statement, e.g. an 
assignment or another if statement, this statement need not 
be enclosed inside the delimiters begin and end. When this 
is not true, that is, a sequence of statements form the 


then or the else part, this sequence must be delimited by 
begin and end. 


Example 4.9 (Summation of series) T 


We are required to compute the sum of the series 
]2/- 224 32 2 42 4 (-1)"^! a? 


To do this, the statement of the form 

SUM := SUM + TERM 
can be executed repetitively. To find TERM, we note that it 
has an absolute value i?, where i is the counter for repe- 
tition, and a sign which is opposite that of the previous 


term. The sign of the previous term сап be remembered in an 
integer variable 'sign', which alternates between +1 and -1. 


The TERM now is nothing but 

sign * sqr(i) 

t as the value of it is updated in every repetítion using 
Tus 1 54 


Jus 


РЕЗУДТА et wee T M MCCC Ta T 
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sign can also be updated as 
sign := - sign 


With these considerations we formulate P4.4 to sum the series. o 


PROGRAM SERIES (INPUT, OUTPUT)? 
| (е PROGRAM TO SUM UP THE FOLLOWING SERIES : .. 
t. 5:191 -292 4393 - 494 + ....... .) 
| (= ONLY THE FIRST N TERMS ARE SUMMED. *) 
j мағ 
y І, SIGN.SUM.N : INTEGER: 
BEGIN 
4 MRITEC*NO OF TERMS PLEASE : '›; 
= READ(ND: 
4 SUM ::0; 1:21) SIGN: 241; 
WHILE I <= N DO 
BEGIN 
SUM :: SUM + SIGN е SOR (10; 
I :: 1+1; 


SIGN :: -SIGN 
END: 
WRITELN: 
WRITELN (SUM OF THE FIRST ',м:4. ' TERMS = ',SUM:6); 


NO OF TERMS PLEASE : 5 


SUM OF THE FIRST 5 TERMS > 15 
P4.4 Program for summation of a series Z т. 
^" Y 
Example 4.10 (Root-finding by bisection method) 4-4 


Ме can find the square root of а number using the predefined 
function sqrt. In this example, we shall consider the problem 
of finding higher order roots. One method is to raise the 
number to the power 1/п, where n is the order of the root, 

Instead, we outline an approach without using the stand- 
ard functions, which has a wider range of applicability. To 
find the nth root of a, we have to find x such that 


n 
x =a 
or x"-a = 0 


f Therefore, n/a is nothing but a root of the function z =a; 

я There are several methods for finding the roots of functions. 
We shall use one known as the bisection method. 

Figure 4.15 illustrates a function which is negative at 

х p and positive at q. To find the root, we start by taking the 

К midpoint (call it mid) of p and а. If the function value ас 
mid is negative, then the root has to lie between mid and q. 
Then, we consider mid as p and repeat the process. If the 

| function value at mid is positive then we consider mid аз 4 

4 and repeat. Evidently, the interval (p,q)* is sufficiently 


d * Converges on the root when the size of the interval (p, q) is small. 
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to a desired 
precision. 


FIG. 8.15 Illustration of bisection 
method 
This is called bisection method because the interval 
(p,q) is halved at each step. We shall use this method to 
find the cube root of a positive number a. We choose (0,a) 


ав the initial interval. | 


PROGRAM CUBERDOT CINPUT, OUTPUT): 


сж ESTIMATION OF CUBE ROOT OF A FUNCTION @Y #) 
(е BISECTION METHOD ж» 


CONST 
EPSILON = 1E-4: 

VAR 
я,Р,Ә,МІр,ЯООТОҒА : REAL: 
FMID : REAL; 

BEGIN 

MWRITEC'NUMBER PLEASE :*); 

READ (а): d 

(ж SET THE INITIAL INTERVAL ж) 
IF A < 1 THEN 


REPEAT 
(x BISECT THE INTERVAL AND EVALUATE FUNCTION AT THE MID POINT ©) 
MID :: (P*QD72! 
FMID := MID ж MID е MID; 
IF FMID < A 
THE 


N 
Р +2 MID 
ELSE 
© :: MID 
UNTIL (FMID = A) OR (Q-P <= EPSILON); 


IF FMID = A 

THEN 
. RODTOFA := MID 

ELSE 

ROOTOFA :: (P+Q)72: c 

WRITELN (^CUBE ROOT CORRECT TO THREE DIGITS: ,, ВООТОҒА: 10:3); 
WRITELN: "es А 
MRITELN(^CUBE OF THE ESTIMATED ROOT: ', ROOTOFA*ROOTOFA*ROOTOFA? 


END. 


NUMBER PLEASE = - 
0.27 “ ~ 
CUBE ROOT CORRECT TO THREE DIGITS: 6.464Е-1 1 


CUBE OF THE ESTIMATED ROOT: 2.700392Е-1 


P4.5 Program to estimate the cube root of a positive number 
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Example 4.11 (Plotting a function) 


Numbers need not be the only output from a computer. Depen- 


ding on the form of data, the output may be displayed in 
the form of graphs, bar charts, maps or figures. Graphic 
output media, like plotters and cathode-ray tubes are most 
appropriate for such output. Printers can also be used to 
output some of these forms. 2 

Тһе program presented here prints a plot of the sine 
function. The plot has to fit in a single printer page. 
Normally, a page contains a little more than 60 lines and 
the width of the page is 120 positions. One complete cycle 
of the sine function has to be plotted in such a frame, 


In contrast to the nor- 
mal convention, we shall use 
the vertical axís for x and 
the horizontal axis for y. =) 0 +1 
To get a neat graph, we shall 
use 61 lines to represent 0 
to 2r radians and 61 columns 
to represent the values 
between -1 and +1. This 
arrangement is shown іп 
Fig. 4.16. 

Each line now corresponds 
to an x-value and each char- 
acter position within a line 
corresponds to а y-value. 
There are, obviously, other 
х- and y- values which do 
not correspond to a line nu- 
mber or a character position. 
They have to be rounded to 
the nearest x- and y- values 
which represent them in the 
plot. 2m 

B1 Positions 


61 Lines 


We proceed line by line, 
computing the character posi- FIG. 4.16 Sine curve to be 
tion to be plotted in each plotted 
line. This computation is 
done in the sequence 


Line naumber-222521inR, „ — sine, y асаа 


Character ровісіоп. 


since x = 2r is represented by the 61st line and x = 0 is 
represented by the first line, descaling x can be done by 
the formula 


a d 


eS ҮТ уь prm четт чуру 


МА уе К АС PN НТ ОМИ 
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X = (linenumber - 1) x = 1 
= (line number - 1) x 27 


60 
The horizontal position for a y value can similarly be obta- 
ined by ТОЯ THE SINE CURVE 
position = (y-(-1)) x Реб -(-1) 
ж 
= 30y*31 ж 
ж 
The plot is then obtained by printing ж 
the character 'x' in the position : 


computed, To print 'x' in position p 
we have to leave (p-1) spaces and 
then write 'x', Note how this is done 
in the program given in Р4.6, 


PROGRAM PLOTSINE (INPUT, OUTPUT): 
(ж THIS PROGRAM PLOTS THE SINE CURVE ж 


CONST 
PI = 3.14159; 
UAR 
Х,У : REAL; 
POSITION : INTEGER; 
BEGIN 
WRITELN” ':30,'THE SINE CURVE’); 
WRITELN; 
WRITELN? 


Y ts SINC)? 
POSITION := ROUND (3O*Y + 31); 
WRITELN (” ': (POSITION-10,  '*'5; 
X t= X + 2*PI/60 
UNTIL X > гөрі ^ 
END, 


P4.6 Program for plotting the , 
sine function * 


5, uum 


Шина ы-і алд, 
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Example %.12 


Several integers, each denoting the day of a week, are to be 
input and converted to equivalent days in words. For example, 
if the input value is 2, the output should be TUESDAY, for 
input 7 the output should be SUNDAY. 

The sequence of operations to be performed by our program 
can be written as 


begin hile not end of input do 


begin 
read next day number ; 


print corresponding day as a word 


end end ; 


The condition 'not end of input' can be coded in PASCAL 
as not (eof). Conversion of integer to its equivalent word 
can be done easily using a case statement. Program P4.7 is 
a complete PASCAL program to perform the desired task. LJ 


PROGRAM PRINTDAYINMORDS (INPUT, OUTPUT)! 


сж PROGRAM TO CONVERT A GIVEN WEEKDAY (1 TO 7 › INTO WORDS *) 
(ж AND PRINT ІТ. ж) 


VAR 
DAY: INTEGER; 


BEGIN 
WHILE NOT (EOF) DO 
BEGIN 
WRITE(’DAY PLEASE (1 TO 7) :'); 
READ (DAY): 
WRITELN; 
IF (DAY < 1 > OR (DAY > 7 D 
THEN 
WRITELN’ TRY AGAIN’) 
ELSE 
CASE DAY OF 
A:WRITELN( MONDAY’ 9: 
2:WRITELN(’ TUESDAY’); 
S:WRITELN( WEDNESDAY” ›; 
4: WRITELN(’ THURSDAY’) 
S:WRITELN( FRIDAY’ 9; 
6: WRITELN( ’ SATURDAY’): 
7:WRITELN( ’ SUNDAY’) 
END: (ж END OF CASE ж) 
END? 
END. 
DAY PLEASE (1 TO 7) :6 
SATURDAY 
DAY PLEASE (1 TO 7) :7 
SUNDAY 
DAY PLEASE (1 TO 7) :1 
MONDAY 
DAY PLEASE (1 TO 7) : 


P4.7 Program for converting weekday number to words 


-————— АЁ 
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г. 


EXERCISES 


8.1 Write a program to compute хУ for natural numbers x and y. 
4.2 Write programs to generate the following figures: 


(2819 3, е gen 27 
о AE же 
йы ЖД 8 
1 
(99744: 222748778226 AE OG 
p won Sdn, rk 
"2 22248 
1 
Ж. э o 
erar aE 
If 3 $4 HC ab on 
(c) 1 
T 
БОЛДЫ ЕТІ ГЕРБ 
Tous Sv ITE nec PN 
Р T3745 
17524-48 
1 


(d) Each of (а), (b) and (c) given above such that 1-is replaced 
by the character A, 2 by B and so on. 

In each case, your program should be general so that for a given 
number of lines (№) the corresponding figure should be printed. 
For example, if N - 5 and a figure similar to (b) is to be 
printed, the output should be 


A^ GB Ce) Dene 
A, BAG 
A 
AB ГО 


Т Ст: а Бра: "E. 
4.3 Write programs to sum the following series. In each case, stop 
adding any new terms when the following condition is satisfied 
| p-n |<е 
where p denotes the previous sum, n the new sum after adding terms 
to р, and є is a known constant (say 0.00001). 


2 3 4 
(a) x--— .4----%.. for -1<x <1 


5 
OSEE Rim M M 
1 1 T 


(с) DUE 
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4.4 Examine the following loop 


L:j*ks; 
while L »m dol := 2 - m; 
1 = 1 tix 


The above statement sequence is claimed to compute 
iz(j*k)modm 


Does it do so? 


4.5 Does the following segment correctly compute the GCD of two 
natural numbers x and y ? If not, spot the error. 


while x # y do 


begin 


while x >y dox := x-y; 
while x < y do y := y-X 
end ; 
GCD := x 
4.6 (а) If an amount V is deposited in a bank that pays compound 
interest at the rate of r and compounds the interest n times 
per year, then, after t years, the increased value of V, denoted 


by T may be computed by the formula 
Жыз (ү + = TR 


Develop a PASCAL program that computes and prints the value Gr 
for n = 1 to 100 for given values of V, t and r. 


(b) Get your program executed for 

у= += р= 1 
Observe the successive values of T. Do you find that these are 
converging to the constant e ? 


4.7 (а) A text consisting of a sequence of characters is available 
as input on cards. Write a program that reads this text and out- 


puts it after suppressing any redundant spaces. Thus, any sequence 


of two or more spaces is replaced by one space in the output. 
(b) Modify the program written in (a) so that any sequence of 
spaces, followed by a punctuation character (comma or period) 


followed by another sequence of spaces, is replaced by the punct- 


uation character. 


. ейік و و‎ PEIPER t mA 
a ада аа КЉ 


ся 


Pee сна, жа ары as ЭНД" rcs HN EE rae 
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DATA TYPES 


A program consists of two parts: the data and the set of 
instructions that act on the data, which we have earlier 
termed 'algorithm'. The data part of a program is not as 
visible as the algorithm part. PASCAL provides a wide range 
of mechanisms to describe the properties of data items so 
that the clarity of the data becomes comparable to that of 
the algorithm part of the program. 

The data appears in a program as constants, values of 
variables, values of expressions or as input to the program. 
Each of these values is of a certain type. We have seen in 
Chapter 3 how the type of a variable is defined ín a PASCAL 
program. Such a definition essentially specifies the set of 
values that a variable can take. Implicitly, it also speci- 
fies the operations which can be performed on a variable. 
For example, the integer division operation div can be per- 
formed only on integer operands. Using div with, say, real 
operands is thus invalid. 

А type, thus, specifies a set of values, the properties 
of this set of values and the operations which can be perf- 
ormed on this set*. We shall discuss in this chapter how a 
new data type can be introduced into a program and what are 
the different data types that can be defined. 


5.1 ТҮРЕ DEFINITIONS 


new object defined in a an 
identifier and types are no exception. The syntax chart, 
Fig. 5.1, specifies the type definition part of a program. 
The type definition part must appear after the constant 
definition part, if any, and before the variable declaration 


Wie consider it proper to associate both values and operations with a 
type. According to another viewpoint, a type only corresponds to a set 
of values. 
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number = integer t 
rupees * integer 
FIG. 5.1 Syntax of a type definition 


height = real 


part. The block 'type' in Fig. 5.1 is a description of the 
type being defined. We shall discuss in the rest of the ch- 
apter how this box has to be written. 

The simplest type description is just a type identifier. 
The example in Fig. 5.1 defines a type called number which 
is the same as the integer type. This means, all the proper- 
ties of integer type hold for the type number as well. Simi- 
larly, the other definitions define two other types called І 
rupees and height which аге equivalent to the integer and 
real types respectively. 

The type descriptions other than simple type identifiers 
fall into two classes depending on whether they are struct- 


ured or not (see Fig. 5.2). An unstructured type consists 
of values which are elementary (i.e. values which cannot be 
decomposed into components). A structured type comprises 
values which are actua ly groups of simpler values. Ап ord- 


ered pair, for instance, is a value which in turn consists 
of two values. Thus, it is a structured value. 


simple type 
Structured type 35 


FIG. 5.2 Possible types 


We shall now discuss each of these two types in detail 
in the rest of the chapter. 


5.2 SCALAR TYPES 


The unstructured types are called scalar types. In Chapter 3, 
we have already learnt about three scalar types, namely 

boolean, integer and character. Note that though real is also 
a scalar type, its usage ís limíted to certain contexts. For 
example, the functions pred and succ are not defined on real 
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arguments. The scalar types are defined by enumerating all 
the values that belong to the type. The type DAY, for exam- 
Ple, consists of the values Sunday, Monday,..., Saturday. 
А switch is ON or OFF at a time, Therefore, a type 
SWITCHSTATUS may be defined as consisting of values ON ‘and 
OFF. Similarly, a type COLOUR may Possibly be defined as 
having values red, green, black and blue. 

The syntax of enumerated types is given іп Fig. 543% 


identifier Q— 


FIG. 5.3 Syntax of enumerated types 


Note that by using an enumerated type we are also defining 
all the constants of that type. These constant identifiers 
cannot be used for any other purpose in the Program. For іп- 
Stance, the type definitions s 


type colour = (red, green, black, blue, brown) ; 
skincolour = (black, brown, yellow, white) 
appearing in the same Program are invalid because black and 
brown are used as constants in two distinct types. 


Similarly, the variable declara tions 


var today : (Sunday, Monday, Tuesday, Wednesday, 
Thursday, Friday, Saturday): 
tomorrow : (Sunday, Monday, Tuesday, Wednesday, 
Thursday, Friday, Saturday) 4 


are also invalid though they appear very sensible. The reas- 
on is that the first occurrence of the enumerated type defi- 
nes the constants Sunday,.., Saturday, and these constants 
Cannot be used in another type description, even if the two 
type descriptions are identical. However, this Problem can 
be resolved by using one of the two alternative declarations. 
1. var today, tomorrow : (бипдау, Monday, Tuesday, 
Wednesday, Thursday, Friday, 
Saturday) ; ! 
2. type дау = (бипдау, Monday, Tuesday, Wednesday, Thurs- 
day, Friday, Saturday) ; | 


var today : day ; ! 
tomorrow : day ; 
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The types introduced in Chapter 3, namely integer, real 
and char are also scalar types. But they do not have to be 
defined by us in a program by enumeration of their values. 
As their use is very frequent in programming and as the en- 
umeration of their values is too tedious, they are defined 
by the language itself. For this reason they are called 
predefined types. We shall refer a detailed discussion on 
these to the next section. 


Operations on Scalar Types 


We have stated that the operations that can be performed on 
a data item depend on its type. Let us now see what are the 
operations possible оп objects of a scalar type*. 

The simplest operation is naturally the assignment. In 
fact, the assignment operation is available with all types, 
whether structured or not. A value of a particular scalar 
type cannot be assigned to a variable of any other scalar 
type. Obviously, it 15 meaningless to assign Monday to а 
variable of type colour. Similarly, the assignment tomorrow 
і- 0 is also invalid as 0 is of type integer and not of type 


` day. 


All the scalar types have an inherent ordering defined 
on their values. The values of type integer for instance, 
ave ordered as ...-3, -2, -1, 0, 1,2,3... For one 
types, the ordering is the same as the order of enumera ion 
specified in the type description. The values of the type 
day, for example, are ordered as Sunday, Monday,...,Saturday. 
Similarly, the values of type colour are ordered as red, 
green, black, blue; though this ordering is not as meaningful 
as the ordering in type day. This ordering is called the 
ordinality of the type and the types which possess ordinality 
are called ordinal types. We shall see later the types which 
are not ordinal. 

The above discussion leads to the concept of ordinal 
number. For enumeration types, the ordinal number of the 
first value in the enumeration is 0, the second value 1, and 
so on. In a program, the ordinal number of a value can be 
obtained by a function called ord. For the type day, ord 
(Sunday)=0 and ord (Wednesday)=3. 


Ехатр1е 5.1 (Assigning points to a pack of cards) 


A pack of cards has four suits, each having thirteen cards. 


#Туре real is excluded from this discussion. 
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Let us assume the point scheme given below. 


clubs 1-13 
diamonds 14-26 
hearts 27-39 
spades 40-52 


Within each suit, card 2 has the lowest points and the ace 


has the highest points. ^ 
Let us now write a program segment that given a card, 


finds the points assigned to it. 


var suit : (clubs, diamonds, hearts, spades) ; 
card : (card2, card3, card4, card5, card6, саг47, 
card8, card9, саг410, Jack, Queen,King,Ace) ; 
points : integer ; 
begin 
(*values for suit and card have to be assigned here*) 
points := ord(suit)* 13+ord(card)+l ; 
writeln (points) 


end (m) 
Since the values of an ordinal type are ordered, they 
form a sequence. Therefore, each value has a predecessor and 
a successor. However, the first value does not have a prede- 
cessor and the last value does not have a successor, The pre- 
decessor and the succesor of a value can be obtained in a 

program through the functions pred and succ. 


Example 5.2 (Finding the next month) 


Given the current month, the program segment given below 
shows how to compute the next month. 
type month = (Jan, Feb, Mar, Apr, May, Jun, July, 
Aug, Sep, Oct, Nov, Dec) ; 


var current:month ; 
Next :month ; 


begin к 
(*value of current has to be assigned here*) 


if current = Dec then 
Next {= Jan 
else Next :* succ(current) 


end 0 


Example 5.2 compares two values of type month using the 
's' operator. The operators '*' and '« >! are defined on all 


types. The other comparison operators <l, >, <- and 
>"! are defined only for ordinal scalar types. 
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A scalar value is less than all its successors and greater 
than all its predecessors. 


Example 5.3 (Finding the length of a period) 


A period of not more than a week is specified by its begin- 
ning and ending days. The next program segment finds the 
length of the period. 


var beginday, endday: (Sun,Mon,Tue,Wed,Thu,Fri,Sat) ; 
period : integer ; 


begin 
(*beginday and endday must be assigned values here*) 


If beginday <= endday then 
period := ord(endday) - ord(beginday) + 1 
else period :- 7 + ord(endday) - ord(beginday) + 1 


end o 


Example 5,4 (Finding whether current passes in a circuit) 


Consider the following circuit with simple switches. 


Given whether each switch is on or off, the following program 
segment finds whether current passes through the resistance, 
Ry, OFT. not, 


type switchstatus = (off, on) : 


var a, b, с, d : switchstatus 
passes : boolean ; 


begin 


(*assign the values for a,b,c and d here*) 
if (а=оп) and (b=on) then 
if (d = on) then 
passes := true 
else 
passes :* false 


f (с=оп) then 
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if (d = on) then 
passes :- true 
else 
passes := false 
else 
passes := false 


end D 


The form of the above program which we have chosen for 
the sake of simplicity has a lot of redundancy. 
Consider for example, the statement 


if (d= on) then 
passes :* true 


else 
passes := false 


When the expression (d = on) is true, passes is assigned true 
and when it is false, passes is assigned false. Therefore, 
the if statement can be replaced by a simple assignment: 

passes := (d = on) 
Similarly, the next if statement can be replaced by 

passes := (c = on) and (d = on) 
In fact the whole algorithm can be replaced by a single 
assignment: 

passes := ((a = on) and (b = on)) and 

((d = on) or ((c = on) and (d = on))) 

which can be simplified to 

passes := ((a = on)and(b = on)) or (c = on) and (d = on) 


5.3  INPUT/OUTPUT OF VARIABLES OF SCALAR TYPES 


In Chapter 3, we learnt how data of any of the four scalar 
types integer, real, char and boolean can be input and out- 
put using the read, readln, write and writeln statements. 
PASCAL, however, does not permit input/output of data of any 
scalar type other than the four mentioned above and strings. 
Thus, for example, it is illegal to use the following stat- 
ement 


read (a, b, c, d) 


to assign suitable values to the four variables in the pro- 
gram segment of Example 5.4, 
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It is still possible to assign values to such variables 
by some extra programming effort. The next two examples ill- 
ustrate hcw this can be done. 


Example 5.5 


Variables a, b, с and 4 are declared as 
var a, b : (OFF, ON) ; 


It is desired to input values of these variables. Assume 
that in the input media (cards or terminal) 0 is used to 
denote OFF and 1 to denote ON. The following program segment 
can be used to input values of a and b. 


read (p) ; 

if p = 0 then a := OFF else a := ON ; 

read (p) ; 

if p = 0 then b := OFF else b := ON ; o 
Example 5.6 


A variable beginday is declared as 


var 
beginday : (Sun,Mon,Tue,Wed,Thu,Fri,Sat) ; 


During the execution of a program in which beginday is used, 
its value can be printed at any time using the following 
PASCAL statement. 


Case beginday of 
Mon: write ('Mon') 
Tue: write ('Tue') 
Wed: write ('Wed') 
Thu: write ('Thu') 
Fri: write ('Fri') 
Sat: write ('Sat') 
Sun: write ('Sun') 

end ; 0 


It is obvious from the above two examples that input/ 
output of enumerated types is a tedious task. Later, in 
Chapter 7 we shall see how it can be simplified. 


ee we ж we we we ve 


5.4 SUBRANGE TYPE 


A scalar type specifies a range of values. Thus, if AGE is 
declared to be of type integer, it can assume any value in 
the range of integers available. Similarly, if DAY is a 
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type defined as 
type 

Day * (Mon,Tue,Wed,Thu,Fri,Sat,Sun) ; 

and Fastday is declared as 


var 
Fastday : Day ; 


then, Fastday can assume any value in the range Mon to Sun. 

However, in many cases, as in the above two, the vari- 
able under consideration can only assume one of a subrange 
of values and not from a complete range. PASCAL permits us 
to specify the type of a variable as a subrange of an alre- 
ady defined range. The following are valid subranges 


VAN. uz" 
"%0! i "gt 
05757 00 
Mon . . Fri 


A variable can be declared to be of a subrange type in 
accordance with the syntax chart shown in Fig. 5.4. A few 
examples are given below. 


ER OLEI 


tu 
constant wwentifier 


character 


FIG. 5.4 Syntax ‘of subrange types 


var 
тасир А МАРКЕР 
weekend : Sat . . Sun 
isitfals :'A' 2.12! 
itemcode :200 . . 400 


xneg : -60..0; 


we ee ee ee 
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A subrange can be used while defining types as shown in 
the examples given below. 


type workingday = Mon ,. Sat ; 
Better «AT ЛЫ МД ШҮ 
yearof20thcentury = 1901 . . 2000; 


Note that for the first of the above three types to be valid, 
the complete range of values from Mon to Sat must be defined. 

It is not possible to define a subrange of the type real. 

All operations defined cn a range of values of a parti- 
cular type, are also defined on any of its subrange. Obviou- 
sly, while performing such operations, the value assigned to 
a variable of subrange type should not be beyond the speci- 
fied subrange. Thus, if for the variable itemcode defined 
above, we use the operation 


itemcode := 199 + y ; 


and the value of (199+y) exceeds 400, then the operation is 
illegal. In such cases, the programmer is informed of this 
erroneous condition during the execution of the program, 


5.5 RECORD TYPES 


Т111 now we have learnt of types where each value in the co- 
rresponding set is a scalar. A variable of any of these types 
corresponds to an indivisible constant value. 

In programming, there arise many values which are composed 
of a set of other values of different types. To exemplify this 
Statement, consider a date. A date is a value composed of three 
values—day, month and year. As another example, consider a 
rational number. It too is composed of values—an integer part 
and a fraction part. The fraction part, in turn is again com- 
posed of two values — a numerator and a denominator. 

Such data, that are composed of several values, are known 
as structured data in programming parlance. In PASCAL, a type 
which corresponds to such data, is called a record type. A few 
record types and variables of such types are defined below. 


(a) date = record 
бау: 175315; 
month : (Jan,Feb,Mar,Apr,May,Jun,July,Aug, 
Sep,Oct,Nov,Dec) ; 
year : 1901 .. 2000 
end ; 
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(b) rational = record 
intpart : integer ; 
fracpart: record 
numerator, denominator 
integer 
end ; 
end ; 


(c) Xy i date? 
numl, num2, num3 : rational ; 


The syntax of record types is defined in Fig. 5.5. Notice 
in this chart that type can be a record type also. Thus, a 
record type may consist of values which are again of record 
type, as in (b) above. 


em 


FIG. 5.5 Syntax of record types 
Referencing and Operating on Record Variables 


As we have seen above, a record type is composed of several 
values. Each of these is known as a field of that record. 
Each field within a record, has an identifier—the field de- 
signator, and a type — the field type, associated with it. 
The field designator is used for referring to a particular 
field within a record. 

For example, the day field of variable x, declared above 
in (c), can be referenced as 


=. day 


Sinilarly, the following are a few more references (see the 
syntax of such references in Fig. 5.6) 


y. month 
y. year 
numl. fracpart.numerator 


The type of x.day is the same as that of day (integer). 
Thy type of numl. fracpart is again a record. However, the 
type of numl.fracpart.numerator is integer. 
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variable identifier - e - i field identifier Е 


FIG. 5.6 Syntax of references to fields of а record 


The only operations that can be performed on data of 
record type are — assignment and test for equality (=). Thus, 
assuming declarations given above, we can write 


Mey. 


numl := num2 ; 


Obviously, these assignments have meaning only if the values 
of variables y and num2 are defined prior to their execution, 
The first of the above two assignments is equivalent to the 
following three assignments 


x.day := y.day ; 
x.month := y.month ; 
х.уеат := у.уеаг ; 


It is thus evident that when values of only some of the compo- 
nents of a record are to be altered, explicit assignments will 
have to be made to these components. 

The next example shows a PASCAL program that uses records. 


Example 5.7 (The day оп the coming 15%) 


The program we desire to write, reads today's day and date and 
finds out the day on the first of the next month, 


PROGRAM FINDDAY CINPUT, OUTPUT); 


(ж PRORAM TO FIND THE DAY ,IN WORDS ,ОН THE ж) 
(ж NEXT 1ST. INPUT IS TODAY'S DAY,DATE,MONTH AND YEAR. *) 


TYPE 

DAY = 0..6; 
VAR 

TODAY : RECORD 


DATE : 1..31; 
MONTH : 1..12; 
YEAR : 1901..2000 
END; 
DAYOFTODAY, DAYON1 ST : DAY: 
(е THESE ARE ACTUALLY ORDINAL NUMBERS ж, 
NOOFDAYS :1..31; 
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BEGIN 

(* READ TODAY'S DAY AND DATE жо 

WRITEC DAY, DATE, MONTH AND YEAR PLEASE : 7); 

READ (DAYOFTODAY, TODAY. рате, TODAY. MONTH. TODAY. YEAR); 

(ж FIND THE NUMBER OF DAYS BETWEEN TODAY AND THE 15т ж» 

CASE TODAY.MONTH OF 

1,3,5,7,8,10,12 : NOGFDAYS :- 31-TODAY.DATE+1; 
4,6,9,11: NOOFDAYS :-30-TODAY.DATE*1:; 
2 : IF TODAY.YEAR MOD 4-о 

THEN 
(ж IT IS А LEAPYEAR ж) 
NOOFDAYS :-29-TODAY.DATE*1 
ELSE 
NOOFDAYS: =28-TODAY. DATE+1 


END? 
(ж FIND THE ORDINAL NUMBER OF THE DAY ON 1ST x) 
DAYONIST :- (NOOFDAYS+DAYOFTODAY) мор 7; 


(ж WRITE THE DAY ON 1ST жо 
CASE DAYON1ST OF 
O : WRITE (*SUNDAY’); 
1 WRITE (^MONDAY*); 
: WRITE C'TUESDAY^); 
: WRITE ("WEDNESDAY ’); 
1 WRITE (THURSDAY J; 
1 WRITE ('FRIDAY'); 
1 WRITE (’SATURDAY’ ›; 


OVA UNE 


END 
END, 


DAY, DATE; MONTH AND YEAR PLEASE :2 18 5 1982 
TUESDAY 


Р5.1 Program to find the day on the next 1st 


It may be seen that the simultaneous use of day as a type 
and as a field of the record type. There is no ambiguity here 
since a type cannot be used where a field is used and vice 
versa. We shall discuss later when and why such simultaneous 
usages are valid. 

We have used the ordinal numbers 0 . . 6 for days instead 
of the days themselves. This facilitates performing mod oper- 
ation to find the day on lst and moreover, we do not have to 
convert character data into type day when the values are in- 
put. Notice how the values of type day (which is nothing but 
the subrange 0 . . 6) are translated into character data for 
the sake of output. 


Example 5.8 


Arithmetic with complex numbers can be performed easily in 
PASCAL by defining a new type complex as follows: 


type 

Complex = record 
ES T! real ; 
em : real 
end 
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Here re and im are field designators for the real and imagin- 
ary parts of the complex type. 

The program shown in P5.2 uses this type to compute the 
product of two complex numbers. Notice how the write statem- 
ents have been used for printing a complex numbers in their 
natural form, i.e. in the form atbi. 


program cmult (input,output) ; 
е 
сошр1ех = гесога 
re, im : real 


ME 
va 
X, y, 2 : complex 
begi 
read (x.re, x im, y.re, y.im) ; 
writeln('X=', x.re : 6:2, '+', x.im:6:2, 'i') ; 
writeln ; 
writeln('Ys' y.re : 6:2, '+', y.im: 6:2, em eae 
writeln ; 
7.се := x.re *y.re - x.im * y.im ; 
Z.im := х.ге * y.im + y.re * x.im 
write ("PRODUCT OF X ANDY = ') 3 
writeln (Z.re: 6:2, +, Z.im : 6:2, 727); 
end 


P5.2 Multiplication of two complex numbers 
Example 5.9 (А11 the Sundays in a year) 


Finally, we shall develop a program to find all the sundays 

in a year using the type date as defined earlier. The input 

to the program is the year and the day on Jan.l. A skeleton 

algorithm,describing the logic for solving this problem app- 
ears be low. 


begin 
read year and set month to Jan ; 


read day-of-the week on Jan 1; 
set date to the first Sunday of the year ; 
repeat 
write the date ; 
increment date by seven days 
until year > current year 


o 
з 
a 
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his can be re-written or refined into program P5.3. 
` PROGRAM FINDSUNDAYS CINPUT, OUTPUT)? 


(ж THIS PROGRAM COMPUTES AND PRINTS A LIST ОҒ ж) 
(ж ALL SUNDAYS IN AN YEAR. THE INPUT IS THE DAY FOR ж» 
| (ж THE 1ST DATE OF THAT YEAR AND THE YEAR NO. ж» 
чав 
DATE : RECORD 

DAY : 1..31; 

MONTH : (JAN, FEB, МАК, APR, MAY, JUN, JUL, AUG, SEP, OCT, NOU, DEC 33 

YEAR : 1901..2000 
END; 
DAYONJAN1: о..6; 
CURRENTYEAR: 1901..2000; 
NOOFDAYS : 0..31; 
|. BEGIN 
{ WRITEC’ENTER CURRENT YEAR AND DAY (0. .6 ) ОМ 1ST JAN. :”›; 
RERDCCURRENTYEAR, DAYONJAN1)2; 
WRITELN? 
WRITELN” ':20, 'LIST OF SUNDAYS "IN THE YEAR: ”, CURRENTYEAR); 
WRITELN? 
DATE. YEAR := CURRENTYEAR; DATE.MONTH :=JAN4 
(ж SET DATE TO THE FIRST SUNDAY жо 
IF DAYONJANi = 0 
THEN 

DATE.DAY := 1 
ELSE 
DATE.DAY := 7 - DAYONJAN1 + 1; 

REPEAT 
(ж WRITE THE DATE ж) 
WRITE (” %:49; 
CASE DATE.MONTH OF 

JAN : WRITE (’ JAN’); 


FEB : WRITE FEB’); 
MAR : WRITEC MAR’ ә; 
APR : WRITE C’APR’)3 
MAY : WRITE ('MAY'); 
JUN : WRITE (^JUN*); 
JUL : WRITE (’ JUL); 
AUG : WRITE (*&UG*); 
SEP : WRITE ('SEP"); 
OCT : WRITE (OCT); а 
NOU : WRITE (”МОО”›; 
DEC : WRITE (‘DEC’) 
END; 


WRITE (DATE.DAY : 35; 

(ж INCREMENT DATE BY SEVEN ж) 

CASE DATE.MONTH OF G А ү 

JAN: мав, мау, JUL», AUG» OCT; DEC : NOOFDAYS ::31; . ٠ $ 
АРЕ, JUN, SEP: NOU : NOOFDAYS :=30; : 

s : IF DATE.YEAR MOD 4-0 © » Y 


FEB 
THEN [ 
NOOFDAYS :- 29 
ELSE 
NOOFDAYS :- 28 
END; 
IF DATE.DAY + 7 «-NOOFDAYS 
THEN ; 
DATE.DAY :: DATE.DAY + 7 
ELSE 
BEGIN 
DATE.DAY := DATE.DAY + 7-NOOF DAYS; 
IF DATE.MONTH < DEC 
\ THEN 
DATE.MONTH == SUCC (DATE. MONTH) 
ate ELSE DATE. YEAR :- SUCC (DATE. YEAR) 


UNTIL (DATE.YEAR > CURRENTYEAR) 


CUTE GUAE жайы а Аб 
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ENTER CURRENT YEAR AND DAY (O. .6 > ON 1ST JAN. 71982 5 


LIST OF SUNDAYS IN THE YEAR: 1982 


JAN 3 JAN 10 JAN 17 JAN 24 JAN 31 FEB 7 FEB 14 FEB 21 

“ FEB 28 MAR 7 мағ 14 MAR 21 мав 28 APR 4 APR 11 APR 18 
APR 25 MAY 2 may 9 MAY 16 MAY 23 MAY 30 JUN 6 JUN 13 
JUN 20 JUN 27 JUL 4 JUL 11 зо 18 JUL 25 AUG 1 AUG 8 
AUG 15 auc гг AUG 29 SEP .5 SEP 12 SEP 19 БЕР 26 ост з 
ост 10 ост 17 ост 24 OCT 31 NOU 7 NOU 14 NOU 21 NOU 28 
DEC 5 DEC 12 DEC 19 pEC 26 


P5.3 Program to find all the Sundays іп a year 
The with Statement 


From the examples given above using records, it is evident 
that referencing fields of a record can be a tedious task. 
Each time the field is referenced, the variable name, to which 
it belongs, has also got to be written. This is more so when 
the variable and field names are long. For example, consider 
the following declaration: 


xar 
inventoryitem : record 
itemcode : 200 . . 400 ; 
stocklevel : 0... 1000 ; 
reorderlevel : 200 . . 300 
end ; 


Now, if the value of the above variable is to be input, we 


have to use the statement „э 
read(inventoryitem, itemcode, inventoryitem. stockle dá 


inventoryitem. reorderlevel) ; 


One can imagine how tedious it would be if a sequence of 
statements referring to different fields of inventoryitem had 
to be written. 

The with statement in PASCAL helps us simplify this task. 
Figure 5,7 shows the syntax of this statement, Here are a few 


examples 
idi 
9 


FIG. 5.7 Syntax of with statement 


statement 


зі йіне 


маза. а» жы 
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inventoryitem do read (itemcode, stocklevel, 
reorderlevel) ; 


(b) with x d 


begin 


read (re,im) ; 
write(!X'. rat 6:2, '-', im: 6:2, '1!) 


end 
(c) for і:- 1 to 20 do 
begin 
with inventoryitem do 
begin 
read(itemcode,stocklevel,reorderlevel) ; 
write(itemcode:4, stocklevel:4, reorderlevel 
Л 94) 
end ; 
end ; 


Another look at Fig. 5.7 reveals that we can write a with 
Statement using several record variables as follows: 


with x, y, z do S ; 


where S denotes a PASCAL statement. Such a with statement is 
equivalent to 


with x do 
with y do 
with z do S ; 


If there is a field designator, say p, common to the records 
x, y and 2, any reference to p in S will be treated as 2.р. 
Thus, if y.p or x.p is to be referred to in S, it has to be 
explicitly written. 


Scope of Identifiers 


An identifier used as a field designator within a record has 
its existence or scope limited to that record only. For example, 
assume that we have a record declared as 


x = record 
p : integer ; 
q : real 
end ; 


In the same program, p and q can be used for some other purpose, 
Say as 


p = (one, two, three) ; 


char ; 
P 


Le 


4 


| 
i 
à 
3 
| 
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when only q is referenced in the program, the variable q is 
implied. However, if x.q is referenced, a field of x is imp- 
lied. In a with statement using x, any reference to q is tre- 
ated as a reference to the field of x and not to the variable 
q declared above. 

Similarly, the use of type identifier p introduces no 
ambiguity because the other occurrence of p has its scope 
limited to the record. However, the scope of the type identi- 
fier p is the complete program block in which it is defined. 


5.6 SUMMARY 


We have learnt in this chapter that every data item appearing 
in a PASCAL program must belong to a data type. There are two 
classes of data types: scalar and Aa Implicitly asso- 
ciated with every type are the operations which can be perfor- 
med on its values. Since the operations on enumerated scalar 
types are limited, we have more useful operations defined on 
predefined scalar types, namely char, real, integer and boolean. 
Table 5.1 sums up all the operations defined on scalar types. 

Values belonging to predefined scalar types can be input to 
and output from the computer by the read and write statements 
respectively. There is also a facility to defíne subrange types 
whose values are a subset of the values belonging to a scalar 
type. 

The record type has been introduced as an example of a 
structured type. The fields of record variables are referenced 


by the selection operation. 


EXERCISES 


5.1 ^ Separate valid from invalid type declarations 
(i) x = integer ; 
(ii) colour = (blue,.black) ; 
(iii) colour = (blue, red, black) ; 
(iv) initials s ('A', 'B', 70%) 
(v) initials = 'A’..'Z" ; 
(vi) initials = 'A'..'Z' ; 
middle = 'C'..'X' ; 
(vii) language = (Hindi, English, Tamil, Telugu) ; 
mylang = (English, Telugu) ; 
(viii) length = 3.5..12.9 ; 
5.2 Оп which standard scalar types, are the following functions not 
defined? ee 
.Succ 
pred 
‚ога 
.chr 
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Why do you think PASCAL does not permit a subrange of real type? 


Let A, B and C denote the vertices of a triangle. Write a PASCAL 
program that inputs the length of the three sides of the triangle 
and performs the following tasks (assume that the lengths are 
integers): 
¿prints the area of the triangle 
-labels each side by a character such that if р and q are 
any two vertices, the length of the side РЧ is the ordinal 
number of that character. Print out the three characters 
found. 


Consider the following declarations: 


type 


X = record 


РИ ТАТ IAO 
q : (red, blue, green) ; 
r : integer ; 
5 : char ; 
t : boolean ; 
end ; 
yar 
а Бе 
Which of the following operations are invalid? 
(а) a :=b 
(b) a := ab 
(с) a.p := a.s 
(d) a.r := succ (b.r) 
(e) a.t # (a.r < b.r) 
(f) a.t = (а=Ь) 


A stamp collector maintains the following information about each 
stamp in the collection: 
(i) country (only USA, Russia, India and UK), 
(ii) date of issue, 
(iii) denomination, and 
(iv) brief description. 
Knowing that these data are available on cards (assume suitable 
format in which the data are punched), write a PASCAL program that 
reads the following data and outputs: 

* Number of stamps of each country, 
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* Stamp(s) with the highest denomination(s) (for each country), and 


* The oldest stamp, in the collection together with all its 
attributes. 


Й 


T vidual elements. 
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ARRAYS 


We have familiarized ourselves with a structured type, namely 
records, in Chapter 5. The individual components of a record 
are selected using field designators. In this chapter, we look 
at another very commonly used structured type called array. 

The questions we address in this chapter are: How do we 
define array types? What are the various operations possible 
on arrays? What are the possible uses of arrays? 


6.1 THE BASIC CONCEPT 


An array is a collection of several variables of the same type. 
There arise several programming problems, when there is a need 
to denote such a collection by just one identifier and refer 

to the individual variable in the collection by some simple me- 
chanism. A common example should illustrate the point. 

A class consists of, say, a hundred students. In one of the 
tests, each student has secured certain marks which have been 
noted down by the teacher in his register. If we wish to input 
this data to a PASCAL program, for the purpose of tabulation, 
we can do so by defining a hundred variables—-marksl, marks2, 
marks3 and so оп till marksl00. Imagine what a tedious task it 
would be to declare these variables, read them and then manipu- 
late them individually for the purpose of tabulation. This is 
almost an impossible task, if not in principle, at least in 
practice. 

Instead, íf we could denote the collection of all marks by 
one variable named, say, MARKS and access each component of 
this variable by writing MARKSi, things would be easy. We 
could, for example, read all the data by just one simple for 
statement as 


for i := 1 to 100 do read (MARKS1) ; 
Here 1 is used for índexing into the collection or table of 


marks. Thus, any operation that is to be performed on marks 
could be performed easily by indexing MARKS to access íts indi- 
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Such types of variables, like MARKS, are known ав arrays 
in programming languages. An array consists of usually more 
than one elements, which are accessed with the aid of an 
index. 

An array can also be looked at as representing a table 
of values. MARKS above is a table of marks obtained by stu- 
dents. Each value is labelled as 1, 2, 3 and so on till 100. 
These are the indices. 

As another example of a table, consider the following. 
Each element of the table denotes the total number of 
occurrences of a letter in a given text of characters, Thus, 
the first element of the table is the number of A's, the se- 
cond element the number of B's, and so on. If this table is 

named OCCURRENCE, then first element can be referenced by 
writing OCCURRENCE,, the second by writing OCCURRENCE; , and 
so on. 

We can now say that with an array, two types are asso- 
ciated: 

1. the type of the elements of the array, and 

2. the type of indices. 

For MARKS, the elements may be of type integer and the indi- 
ces are also integers; to be precise, a subrange 15,100... For, 
OCCURRENCE, the elements are integers and the indices are 
alphabets (subrange 'A' .. 'Z'). 

Tables of almost any type can be very conveniently rep- 
resented and manipulated using a combination of arrays and 
records in PASCAL. This point will be brought out in the E 
current chapter. 


Defining Arrays in PASCAL 


Figure 6.1 shows the syntax of array declaration in PASCAL. 
The following are some examples of array variables: 


MARKS : array [l .. 100] of integer ; 
OCCURRENCE: array ['A' .. 'Z'] of integer ; 
SIGN : array [-1 .. 11 of char ; 

SWITCHES : array [1 .. 100] of boolean ; 
TABLE : array [char] of integer ; 


FIG. 6.1 Syntax of array declarations 
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As is normal in PASCAL, any new type can be defined with 
the aid of already defined types. Here are a few types defi- 
ned using arrays, 
MATRIX = array [1 ... 10, 1l .. 10] of real ; 
ITEM = record 
name : array ГІ .. 401 of char ; 
code : 200 ... 400 ; 
stocklevel : 0 .. 1000 
end ; 
VECTOR = array [1 .. 1000] of complex 
Using the above type definitions, one can declare A, B, C to 
10 x 10 matrices and X, Y as 1000 element vectors as 


Ast Dy GL. MATREX 5 
KY : VECTOR ; 


А stores inventory can be represented as 
INVENTORY : array [1 .. 10001 of ITEM ; 


The above declaration effectively represents a table of the 
following kind 


Name Code Stocklevel 


* WNe 


1000 


The minimum and maximum possible values of an index are 
commonly called the lower bound and upper bound of the index. 
Though this terminology is general, it is more often used 
with matrices with integer indices. 


Accessing Array Elements 


Individual elements of an array can be accessed by subscri- 
pting, or indexing the array пате. Thus, the fifth element 
of the inventory declared above can be referred to by writing 


INVENTORY [5] 


As each item of INVENTORY is a record, INVENTORY(5] is also a 
record, Thus, the third character of the name of this item can 
be referred to by writing 


INVENTORY [5]. name [3] 


тте 


Жоға. айы so i 
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The subscript can be апу expression which yields а value of 
type same as that of the index, Thus, the elements of array 
OCCURRENCE, declared above, can be referenced as, for example, 


OCCURRENCE ['B'] 
OCCURRENCE [succ [c] ] 


where C is of type char. Array TABLE, also declared earlier, 
is similar to OCCURRENCE, except that it can be indexed by any 
character. 

Elements of matrix A, declared above, can be accessed by 
using two indices as follows: 


AE <I 
& E5,-K] 
A [3*2, i div KJ 


The first of the above three references the (i,j)th element, 
the next one references the Kth element of row 5, and the third 
one references element (i div K) in row 6. 

Note that the subscript expression(s) used for indexing the 
array must evaluate to a value which lies in the subrange speci- 
fied in the declaration. Thus, all the references A[0,i], 

АСЗ div 4, К], A[-3,4] are illegal for the array A declared. 
above. 

Accordiug to the syntax of array declaration, the following 
declaration is valid, 


Р; array L1^.. 10] of array [ A" 4.92") CETINE EENES 


The above declaration can be interpreted as—P is an array 
having ten elements (indexed from 1 to 10), each element being 
itself an array of integers with elements accessed by characters 
‘AY ^а шш 

Thus, ап element of P can be accessed as, for example, 

PU. [8t 

which refers to the Bth element of the ith element of P. 

The next example illustrates some of the concepts outlined 
above. 


Example 6.1 (Points tally) 


A number of teams, 100 at the most, are participating in an 
inter-university cultural festival. After every event, a card 

is punched specifying the winning team and the points they 
Scored in the event. At the end of the festival, a report has to 
be produced giving the total points of each team. We shall now 
develop a program to produce such a report. 


Se аны РЕ 
а і 
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It is evident that we have to keep a count of each team's 
points. The skeletal algorithm is: 


begin 
read the number of teams 


initialize all team scores to zero 
while all cards are not read do 
begin 
read team and points 
add points to the read team's score 
ená 
write all team scores 
end 


Using the tools discussed prior to this chapter, we would 
have to use 100 variables to count team scores. Using them,the 
operation 

'add points to the read team's score' would have to be 
written as 

if team = 1 then 

add points to scorel 

else if team - 2 then 
add points to score2 
else if 


else if team = n then 
add points to scoren 


Not only is this tedious but an invalid program. We cannot 
write n if statements ín a program without knowing the value 
of n ! 

So, instead of using the variables scorel, Score2, score3, 
etc., let us use an array named score which is indexed by the 
subrange 1 .. 100. Then, score [i] would denote the score of the 
ith team. The operation 

'add points to the read team's score' 
would now be written ав 


score [team] := score [team] + points 


The overall program appears in Р6.1. tJ 
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PROGRAM SCOREREPORT CINPUT, OUTPUT); 


(ж THIS PROGRAM READS POINTS OBTAINED BY VARIOUS TERMS ж) 
(ж PARTICIPATING IN AN EVENT, TOTALS THEIR SCORES ж) 
(ж AND PRINTS THE TOTALS FOR EACH TEAM, ж) 


VAR 
SCORE:ARRAYL1..1003 OF INTEGER; 
N.POINTS : INTEGER; 
TEAM : 0..100; 
DONE: BOOLEAN; 


BEGIN | 
сж N IS THE NUMBER OF PARTICIPATING TEAMS ж) ч, 
MRITE('NO OF TEAMS PLEASE : 70; И. 
READ (N) 2 
FOR TEAM := 1 TO N DO 
SCORE СТЕАМ2:-0) (ж INITIALISE ALL TEAM SCORES TO 0 ж) 
DONE: =FALSEs 
WHILE NOT DONE DO 
BEGIN 
ЫВІТЕС”ТЕАМ CODE AND POINTS :70; 
READ (TEAM,POINTSO; 


WRITELN; 
IF ТЕАМ=0 

THEN 
DONE :=TRUE 

ELSE 4! 
SCORE [TEAM] := SCORE CTEAM] + POINTS; x 

END; = 
WRITELNC'TEAM ”,” SCORE '2; À 


FOR TEAM := 1 TO N DO 
(ж WRITE ALL THE TEAM NUMBERS WITH THEIR SCORES *) 


WRITELN( TEAM: 4, SCOREL TEAM]: 6)i 
END. 


NO OF TEAMS PLEASE : 3 
TEAM CODE AND POINTS : 


TEAM CODE AND POINTS :3 15 


TEAM CODE AND POINTS :2 20 Í 


TEAM CODE AND POINTS :1 10 


TEAM CODE AND POINTS :3 15 ы. 
- 2 

TEAM CODE AND POINTS :2 20 “2 
TEAM CODE AND POINTS :0 O й 
3 


TEAM SCORE 


1 20 
2 40 
3 30 К 


P6.1 Program to compute and print scores of various teams participating 
in a cultural festival 


MENU 
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6.2 OPERATIONS ON ARRAYS 


We shall now discuss the operations that are commonly perfor- 
med on arrays and the method of implementing these in PASCAL. 
As in the case of records, the language provides three 
operations on arrays, namely :=, = and <>. As usual, both 
the operands on which these operations are applied, must be 
of the same type. Essentially, this means that both the arr- 
ays have the same index type and element type. For instance 
the following is valid. : 


var a, b : array [1 .. 10] of real ; 


begin 
if a< >b then 
a :- b 
end 


However, the use of arrays requires more sophisticated oper- 
ations. Let us now discuss some of the useful ones, 


Тһе Move Operation 


A basic operation on arrays is to move a part of th 
another position within it. vi LIRE: 


Example 6.2 (Move operation on arrays) 


Consider an array of integers. The segment of th 

moved is specified by the indices 'first' and "Laeti b cs 
starting destination index is 'dest'. Thus, t > 

to be moved as ететан ыы 


first + dest 
first + dast + 1 


firstti + dest + i 


last + dest + (last-first+1) 
For the move to be possible, 
dest + (last - first + 1) 


must be less than or equal to the upper bound of th 
If the source and destination segments are disjoint 
moving the elements is a simple matter. However, the aid 
overlap, care must be exercised to avoid a new value са ое 
written іп a position before the old value is moved fro ag 
For instance, if we move the elements starting from Fiet 


e array. 


to 
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'last', іп the following case, 


7—1: 9.15] 


Аттау 1. |0 8 9 7 97 65 1 12 10] 
+ + + 
first dest last 
then the result would be 
11027829 OS T . 10] 
+ + + 
first dest last 


The first move stored 9 at position dest before moving 97 to 
its destination position. To avoid this, we shall move the 
elements starting from 'last' backwards to 'first'. Thus, 

the first move will be from 'last' to 'dest + (last-first*l)' 
This process is illustrated below. 


first last 
+ + 
fio Ney 97722597 652 5127 10) 
fio 8 9 7 97.65 1765 10] 
По 8 9 ы, 65 10] 
По 8 9-7 97^*7 97 65 10] 
Ioas Lee ә 2797 65-10] 
+ 4 
dest destt(last-firsttl) 


We, thus, identify five cases: 
e segments are disjoint and dest < first - move strategy 
does not matter 
overlapping segments and dest « first - move starting 
from 'first' to 'last' 
overlapping segments and dcst = first - no move vie rr 
at al 
overlapping segments and dest » first - move backwards 
starting from 'last' to 'first' 
disjoint segments and dest » first - move strategy does 
not matter. 
Since the move strategy does not matter in the first and last 
cases, let us merge the first two and the last two cases. We 
are, then, left with three cases where the choice of the move 
strategy depends on the relation between 'dest' and 'first'. 


PEUT 
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The algorithm to perform the move operation can now be written 
as: 


begin 
read first, last, dest ; 


read the array 
if dest « first then 
move starting from 'first' to 'last' 
else if dest » first then 
move backwards starting from 'last' to 'first' ; 
write the array 
end 


Let us now refine the 'forward' move Strategy. 


Since move involves element assignment, it can Simply be done 
as: 


begin (*forward move*) 
j := dest ; 
for i :- first to last do 


begin 
а [ј]:= а КАН 
J Фе 1 

епа 


end 
Similarly, the backward move is refined as: 
begin (*backward move*) 


j := dest + last-first*l; (*initialise 1 to last position 
of destination segment*) 
for i := last downto first do 


begin 
a[1] := a [1] 5 
j := j-1 
end 
end do 


The overall program incorporating these 
in P6.2. D 1 i requirements is given 


а қ P" dw гурт Жы 


PROGRAM MOVE CINPUT, OUTPUT); 


(* PROGRAM TO MOVE A 


SEGMENT OF А GIVEN ARRAY оғ ж) 
сж INTEGERS TO ANOTHE 


R SEGMENT WITHIN THE ARRAY. ж) 
VAR 


^ : ARRAY [1..1003 OF INTEGER; 
FIRST,LAST,DEST,N : 1..100; 
I,J : 1..100; 
BEGIN 
МЕІТЕС”МО OF ELEMENTS 
READ CN) ; 
WRITELN; 
WRITE(’ENTER POSITION 
READ (FIRST,LAST); 


IN THE SOURCE ARRAY PLEASE :'); 


ОҒ FIRST AND LAST ELEMENTS PLEASE: '); 


WRITELN; 

WRITE (NOM ENTER DESTINATION STARTING POSITION : ”); 
RERDCDEST); : 

WRITELN; 

WRITELN( ENTER ELEMENTS OF THE ARRAY ONE AFTER ANOTHER’); 
FOR I := 1 TO N DO : 


READ (ALIJ); (ж READ THE ARRAY ж) 
IF DEST « FIRST 
THEN 
BEGIN 
(ж FORWARD MOVE ж) 
J is DEST; 
FOR I := FIRST TO LAST DO 


END 
ELSE 
IF DEST > FIRST ` 
THEN 
BEGIN (ж BACKWARD MOVE ж) А 
J i= DEST + LAST - FIRST; 
FOR I := LAST DOWNTO FIRST ро 


BEGIN 
ACJ) := ACTI; 
J is J-1 
END 
END; 
(ж WRITE THE ARRAY ж) 
WRITELN; 


WRITELN(’FINAL ARRAY IS GIVEN BELOW '); 
FOR I t= 1 TO N DO 
WRITE (АСІ2:5); 
WRITELN 
END. 


М0 OF ELEMENTS IN THE SOURCE ARRAY PLEASE :5 

ENTER POSITION OF FIRST AND LAST ELEMENTS PLEASE:2 4 
NOW ENTER DESTINATION STARTING POSITION : 1 

ENTER ELEMENTS OF THE ARRAY ONE AFTER ANOTHER 

16 го 10 12 30 


FINAL ARRAY IS GIVEN BELOW 
20 10 12 12 30 


P6.2 Program to move one segment of an array to another segment 


yv 
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Finding Maximum in an Array 


The need to find the maximum of a grouP of numbers arises 
very commonly. For instance, іп Example 6.1, by finding the 
maximum from the array of team scores че shall know the win- 
ning team. 


Example 6.3 (Maximum of an array) 


Let us consider an array of integers and write а program to 
find its maximum. 

The maximum of two ОТ three numbers can be easily found as 
discussed in Chapter 3. Suppose, we denote the maximum of a 
and b as (a max b). Can we express the maximum of three numb- 
ers using this max operation? It can be easily seen that the 
maximum of a, b and c is 

(a max b) max с = а max (b max c) 
Therefore, it can be written as 
a max b max С 
The maximum of n numbers can be similarly expressed as 
a, max а; max ... max a 

We begin by applying max operator to the first two elements 
of the array. To the result of this and the next element of the 
аттау, ме reapply max. This gives us the maximum of the first 
three elements. We continue applying шах in a similar fashion 
till the last element of the array, 50 that we get the overall 
maximum. We show this method below with a sample array (maxm 


is assumed to denote the maximum of all the values considered 
at any instant): 


n 


п Ба URE r А 1d 
Е АТЫ 
' t ' ' ' ' ' Н 
1 ' Ц ' ' ' t ' 
BEUC EUMD du кд a d uas DNA 
' ' t ' ' ' ' ' 
' ' ! ' ' ' ' Ы 
| ' ' ' ' ' М 
1 |o бир: ERA E 
ere O ood ne 
' ' ' ' ' t 
L H ! ! Н i 1 
maxm=5 1 Н ! ! i 
' ' ' ' ' 
1 ГУЛУ ek 
maxm= 10 | 4 Т 
' ' ' ' 
' 1 + ' 
maxm=10 : 1 ; 
! 1 ! 
1ک ا‎ ' 
maxm=10 { 1 
' 
Жар we 


maxm=20 


......... 


| 
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Our skeletal algorithm thus, is 


begin 
read the array ; 
паха :- a [1] ; 
for i :" Z to n do 
^ maxm :» maxm max a[i] ; (*This is not а PASCAL statement*) 
write (maxm) 1 


сап be refined to the program given in Р6,3. 


TOGRAM MAX (INPUT, OUTPUT): 


(* THIS PROGRAM COMPUTES THE MAXIMUM VALUED ELEMENT ж) 
(ж IN А GIVEN ARRAY ОҒ N INTEGERS жә 


JAR 
A : ARRAY Г1..1002 OF INTEGER; 
MAXM : INTEGER; 
I,N : 1..100; 
BEGIN 2 
HRITEC'NO OF ELEMENTS IN THE ARRAY :7›; . і : 
READ (ND; 
WRITELN; 
WRITELNC ENTER ARRAY ELEMENTS PLEASE’); 
FOR I := 1 TO N DO 
READ (ас122; 
MAXM :- АС12; 
FOR I :- 2 TO N DO 
IF MAXM < АСІЈ 
THEN 
(ж IF NEXT ELEMENT IS SMALLER THAM CURRENT MAXM x) 
MAXM t= ALII; 
се THEN MODIFY MAX €) AE : сі 
WRITELN; lg EP е $c 
WRITELN (MAXIMUM VALUE. IS max) 
END. 


NO OF ELEMENTS IN THE ARRAY :10 


ENTER ARRAY ELEMENTS PLEASE 
-10 о 99 89 123 96 55 45 36 7 


MAXIMUM VALUE IS 123 
P6.3 Program to find the maximun in an array : T 


What will be the output from P6.3 1f the maximum value occurs 


more than once in the array? 
With a minor change in this V ош АШ, it can be made to find 
the minimum of an array. This is left as an exercise со the ` ы 


reader. [7] 
Searching іп ап Array 


The next operation we consider is to search an array for а 
£iven value. The program we shall develop takes an array and 


pM PT MET ы ый _. 


D-41707 we t T 
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an element x as input. It then searches for x in the array and, 
if found, its pesition is printed. Otherwise, a suitable mess- 


age to this effect is printed. 


Example 6.4 (Linear search) 


The simplest method is linear search, where each element of the 
array is compared one by one. Given an element x whose presence 
in the array has to be determined, the following algorithm imp- 
lements linear search by checking each element for equality 


with x. 


begin 
read (x) ; 


read the array ; 


4e L oj 
repeat 
check if а [1] = x; 
4 5 itl 
until x found in array or end of array ; 
if x is found in array then чу 
write its position ы 
eise ж 


write a suitable message 


end 
In order to code the condition 3 


'x found in array or end of array' 
we introduce a variable FOUND of type boolean. Its value indi- 


cates whether x has been found in the array or not. Thus, before 


the search begins, FOUND is set to false. If x-a[1] for any 
value of 1, then FOUND is set to true. Thus, the first part of 
the above condition is merely equivalent to the PASCAL code, 


FOUND 
The second part of the condition is easily coded as 
1-2. 
Where n is the number of elements in the array. P6.4 is the 


final program. 

A quick examination of this program, or just the algorithm 
developed above, reveals that the program actually finds the 
first occurrence of x in the given array. It can be modified, 
after a little thought, to print all occurrences of x in the 
аттау. This, however, is left to the reader ав an exercíse.[] 


2” "Мау ч . 
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PROGRAM LINEARSEARCH (INPUT, OUTPUT); 


FFOGRAM TO SEARCH FOR A GIVEN INTEGER X IN AN ж) 
ARRAY ОҒ М INTEGERS. IF FOUND, THE POSITION ж) 


(* ОК THE ELEMENT IN THE ARRAY, FIRST OCCURRENCE, ж) 
PRINTED, ж) 


(ж І5 
IAR 
A + ARRAYE1..200] OF INTEGER: 
N 3 1..800; 
I : INTEGER; 
x : INTEGER; 
FOUHD : BOOLEAN: 
BEGIN 
HRITEC'ELEMENT TO BE SEARCHED PLEASE :”»; 


READ (X) 
HRITELN; 
j"ITEC'NO OF ELEMENTS IN THE ARRAY: ғ); 
READ (М); 
WRITELNS 1 
WRITELN(*PLEASE ENTER ARRAY ELEMENTS ^); 
FOR I t= 4 TO N DO 

(* READ ARRAY жо 
READ ACI); 


І 


7 1; FOUND := FALSE; 
REPEAT 

сж BEGIN SEARCH ж) 
IF ACI] = X 


THEN Ч 

FOUND ї TRUE (ж X IS PRESENT IN ARRAY x) 

ELSE 

I += 1%1 (ж INCREMENT INDEX TO CHECK NEXT ELEMENT жо 
UNTIL FOUND OR (ION); 
IF FOUND 


THEN (ж X FOUND IN ARRAY ж) 
сж WRITE ITS POSITION ж) 


WRITELN (X:4, * FOUND AT POSITION’, I:4) 
ELSE 


WRITELN (X:4,* NOT FOUND’) 
END.. 


ELEMENT TO BE SEARCHED PLEASE :20 
- NO OF ELEMENTS IN THE ARRAY:5 


PLEASE ENTER ARRAY ELEMENTS 
10 20 6 -3 
20 FOUND AT POSITION 3 


P6.4 Program to perform linear search 


imes the loop in 
be worthwhile to compute how many t 
ҚҰЛЫ” executed. Depending on where x is present іп the 
array, the loop body may be executed any number of times between 
LI 
and n, So, on an average it vill be executed 


1+2+3+...+п _ ater) = ші “2 times for large n 
n n 


fore, propor- 
The execution time for linear search is, there 

tional to the size of the array. The next example introduces a 
1 1 


с:‏ ے 
‚ч . iac т ы,‏ 
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faster method to accomplish the same task. 
Example 6.5 (Binary search) 


A telephone directory for a metropolitan city would, typically, 
have more than 1,00,000 entries. Attempting a linear search for 
an entry would take an unacceptable amount of time and is defi- 
nitely infeasible. In contrast, it does not take much time to 
find an entry in practice because the directory is alphabetic- 
ally ordered. Similarly, if an array of integers is ordered, the 
search for an element can be more efficient. 

Suppose, the elements of the array are in ascending order, 
that is 


ADI] < А[2] < А[3] <... < A[n]. 


We start, by checking for the required entry, with the middle 
"en of the array. In other words, we compare x with A|(1+n) 
div 2]. 

We call (1+п) div 2 the 'mid' of the search zone. Three 
possibilities may arise now: 


„ x = A[mid], in which case the search is over 

ах < A[mid], this means x is somewhere in the first half 
of the array 

ene S A[nid], this means x is somewhere in the second half 
of the array 


Once we have determined which half x may be іп, we reduce 
the search zone to that half of the array. Next, the 'mid' of 
the new search zone is found and x compared with А d] to fur- 
ther reduce the search zone. This process continues ith the 
search zone reducing in size by half every time, until x is 
found or thé array is exhausted. : 

The procedure is illustrated by the following sample where 
x is assumed to be 39. 


, mid 
* 
(л; am MD AS А, 167 ] 


search zone 
mid 
+ 
1 9 10 39 4% 45 113 140 167 1 
ете 2опе 
тій 


% 
14-740 26h GEES ye SU 167 1 


"esearch 


zone 


о [urd 


mid 
, E 
l MBs DB LON BS 113 lad IF 


Ir 
zone 
х = A[mid] now and the search terminates 
The algorithm to implement this procedure is given in Р6,5. 


PROGRAM BINARYSEARCH (INPUT, OUTPUT)? 


(5% PROGRAM TO SEARCH FOR A IVEN INTEGER X IN AN ARRAY ж» 
сж OF N INTEGERS. THE BINARY SEARCH METHOD IS USED. ж) 

(^ IF THE ELEMENT IS FOUND, IT’S POSITION IS PRINTED. ж) 
(* ONLY THE FIRST OCCURRENCE IS PRINTED, x) 

5« THE GIVEN ARRAY MUST BE SORTED IN ASCENDING ORDER. ж) 


VAR 
A : ARRAYC1..200] OF INTEGER? 
TOP, BOTTOM, IN : 1..200; 
MID : INTEGER; 
X : INTEGER: 
FOUND : BOOLEAN: 
BEGIN 
WRITEC’ENTER ELEMENT TO BE SEARCHED AND ARRAY SIZE '); 
READ (X); READCN); 


WRITELN} 

WRITELN('ENTER ARRAY ELEMENTS PLEASE ’); 
FOR I += 1 ТОН DO 

READ (ALII); 

WRITELN? 

(ж FORM THE FIRST SEARCH ZONE *) 

TOP ts 1: 

BOTTOM := М; 

FOUND := FALSE: 


REPEAT 
(ж FIND THE CENTRE ELEMENT OF SEARCH ZONE ж) 
MID i= (ТОР + BOTTOM) DIU 2; 
IF X < ACMIDI s 
THEN 
(ж REDUCE ZONE TO FIRST HALF OF ITSELF ж) 
BOTTOM :- MID - 1 
ELSE 
IF X > ACMIDI , 
THEN 
(ж REDUCE ZONE TO SECOND HALF OF ITSELF ж) in 


TOP := MID + 1 
ELSE қ 
FOUND :: TRUE (ж X HAS BEEN FOUND жо 
UNTIL FOUND OR (BOTTOM ~ ТОР < 0); 
IF FOUND 
THEN Я 4 
(ж WRITE ITS POSITION ж) 3 j 
WRITELN (X:4,' FOUND AT POSITION  *.MID:4) 4 


ELSE ; 
WRITELN (X:4^,* NOT FOUND’) 


END. 


ENTER ELEMENT TO BE SEARCHED AND ARRAY SIZE 10 5 


ENTER ARRAY ELEMENTS PLEASE 
10 24 2$ 49 100 


10 FOUND AT POSITION 


P6.5 Program for binary search 
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This method is known as binary search. Notice its similarity 
with the bisection method presented in Chapter 4. : 

To compare the performance of program P6.5 with that of 
P6.4, let us compute the maximum number of times the loop body 
is executed in Р6,5. It will be executed the maximum number of 
times if x is not in the array or if x is found only in the 
last comparison. 

Since the size of the search zone reduces by half after 
each execution of the loop body, we can guess that the number 
of executions would be a function of the size of the search 
zone. Let us denote the number of executions required for a 
search zone of size n as N(n). Then 


N(n) = 1 + N(n/2) 


which, stated in words means that the number of times the loop 
body is executed for an array of n elements is one more than 
that for an array of n/2 elements. 


If n. к SLAN then 


N(2P) = 1 + (2771) 2, 
1+ D t N(2P- 


vacua qe c 


p times 
wp I 7 


Since п 22Р уе вес р “logn 
Тһив, М(п) - logon + 1 
= logon (for large n) 


We know that logon is negligibly small compared to п as n 
increases. For instance, if the binary search program takes 1 
second for an array of 1,000 elements, then for 10,00,000 ele- 
ments it would take only 3 seconds. In contrast, the linear 
search program would take 1,000 seconds! 


Sorting an Array 


Since linear search is prohibitively time-consuming for large 
tables, we would always like to store tables in ascending or 
descending order so that we can use binary search. What is more, 
information output by the computer has to be ordered for conv- 
enient use. The operation of rearranging tables in order is 


called sorting. 
Example 6.6 (Insertion sort) 


One of the simplest method of sorting is called insertion sort. 
Let us assume we have an input array IN, which has to be sorted 


> 


% 


س و алайын;‏ 
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апа an output produced in the array OUT. Initially, there 
would be no elements in OUT. We proceed by picking up elements 
from IN one by one and inserting them at the proper positions 
in OUT so that OUT is always ordered. We illustrate below 
what would be done after 4 elements have been inserted in OUT. 


IN OUT OUT after insertion 
20 These elements 4 4 
4 have been 20 6 
71 inserted 62 20 
-62 71 62 
6 insert at - 71 
S10 = = 
30 


The algorithm for this can be written as: 


begin 
read the array IN ; 


for i := 1 to n do 


begin 
search in the (i-1) elements of OUT to find where 
to insert 
ЕСКЕ 
insert IN [i] at the proper position 
end ; 
write the array OUT 
end 


Searching for the position where IN [i] has to be inserted 
can be done using the algorithm 


begin 
(*search for the position in OUT where IN [1] has to be 
inserted*) 
j. tun % found :* false ; 
while (j <=(i-1))and not found do 


begin 
if OUT [j]: > IN [0] then 
found := true 
else ј := jtl 
en 
(*j is the position where IN[i] has to be inserted*) 


end 
Do not let the apparent 


simplicity of the above algorithm 
deceive you! It takes care of special cases like OUT having no 
elements (1=1), and no element of OUT being greater than IN [1] 
as a part of a single general case. (Try writing the same algo- 
rithm with a downcounter instead. Will the two algorithms alw- 


ays compute the same position?) 
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This algorithm is equivalent to linear search. But, since 
the array OUT is sorted, we can as well use binary search. 
However, remember that we are not searching for an element, 
but for the position where an element can be inserted. We 
leave it to the reader as an exercise. 

To insert ІМ [1] at 1, we have to first move all elements 
of OUT from j to (1-1) down by one position. Then IN[1] can 
be assigned to OUT[j]. Program P6.6 shows the complete algo- 
rithm іп PASCAL.[] 


PROGRAM INSERTIONSORT (INPUT, OUTPUT)? 


(ж THIS PROGRAM ARRNGES AN ARRAY IN ASCENDING ORDER ж) 
(ж USING THE INSERTION SORT. «> 

; 

VAR 

| INN.OUT : ARRAY (1..1001 OF INTEGER? 
22 Мьк,1,1: 1..100; 
_ FOUND : BOOLEAN: 
BEGIN 
WRITEC*ARRAY SIZE PLEASE : *); 
| READ (N); 
| MRITELN; Р 
(ж READ UNSORTED ARRAY *) 
WRITELN('ENTER ARRAY ELEMENTS 7»; А 
FOR I t= 1 TO N DO 
READ (INNLI2)0: 
OUT C11 := INN C13: 
FOR I := 2 TO N DO 
22 BEGIN. 

|. (ж SEARCH FOR POSITION IN OUT WHERE ІММСІЗ HAS TO BE ж» 
(7o (ж INSERTED ж) 
J t= 43 FOUND :- FALSE: 


| WHILE (7 <= СІ-199 AND NOT FOUND ро > 
` BEGIN 
IF OUT CJJ > ІММГІЈ 
7774 THEN 
FOUND :- TRUE 
' ELSE 
"NY e O4 
END; ў 


(Ж J IS THE POSITION WHERE INNLIJ HAS TO ВЕ INSERTED ж) 
| (ж MOVE ELEMENTS OF OUT DOWN BY 1 FROM J TO (1-19 ж) 
" ah, FOR К t= (I-1) DOWNTO J ро 

Eo ee ВОт сказе OMT, ERI) 
2 (ж INSERT INNLIJ AT J ж) 
2 | OUT CJJ :- INN CII 

bui END; : 
Mi (ж PRINT OUT SORTED ARRAY ж) 
( 2002 WRITELN} 
WRITELN(’ SORTED ARRAY 79; 
FOR I :- 1 TO N DO 
. WRITE (OUTEI1:4) 
% END. . 


p» 
E 


` ARRAY SIZE PLEASE : 10 


ENTER ARRAY ELEMENTS 
1099874698 999 


E SORTED ARRAY 
M o 1107 s. SS 9 % '46 ӘӘ Өз 


M FP6.6 Program for insertion sort 
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Example 6.7 (Dutch national flag problem) 


The problem of the Dutch national flag, designed by Prof.Edsger 
Dijkstra, can be explained as follows. There is a row of buck- 
ets each containing a pebble. The pebbles are of three colou- 
rs: red, white and blue. They have to be sorted in the order 

of the colours of the Dutch national flag, i.e. reds first, 
followed by whites and then blues. The pebbles cannot be pla- 
ced outside the buckets. So, the only possible operation is 

to exchange pebbles in two buckets. 

Let us write a program which, given the colours of pebbels 
in the original arrangement, outputs the sequence of exchanges 
needed to arrange the pebbles in the required order. 

To solve this problem we shall store the sequence of colo- 
urs in the form of an array defined as 


type colour = (red, white, blue) 
var arrangement · array [1.. 100] of colour; 


As we output the exchanges, we also make the corresponding 
exchanges in the array so that the colours in the array repre- 
sent, at any time, the actual arrangement of pebbles. Now, our 
problem reduces to sorting the array 'arrangement'. 

Note that we cannot use insertion sort for this purposes 
because it outputs the sorted sequence in a new array. Even if 
we modify insertion sort to use a single array, it will output 
many more exchanges than necessary. In fact, the number of ex- 
changes, for insertion sort, is proportional to N?, where N is 
the number of buckets. The algorithm which we shall develop 
will output at most (N-1) exchanges. 

Let us visualize the buckets divided into four zones: at 
the left would be the Red Zone (RZ), 
(WZ), then the unprocessed zone (X) and finally at the right 
the Blue Zone (BZ). Initially, the whole array will be X, and 
out of it evolve RZ and М2 at the left and BZ at the right. 

At every step, we examine the first pebble of zone X. If 
it is white, we include it in WZ and reduce zone X. TE UE YE 
red or blue, then we exchange it with the first pebble follow- 
ing RZ or preceeding BZ respectivély. This process is illust- 


rated below: 
[n |ww| WBRRW BR] 


RZ WZ X BZ 


Ç r| wwwl BRRW! BB] 
exchange 5 and 9 


— 

— (к |w] RRW[BBB] exchange 5 with 2 
— [m [ww {нк BBB] 
UE : 
—» 


[RRR ЕТ BBB| 


followed by the White Zone 


ж = _ 


ВАЉАН ا‎ 
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From the preceding illustration, we can see that the proc- 


ess is repeated until X zone has been emptied. 


begin 


ТУ мел SENTI p 


Ie 
(ж 
(ж 

p 
P ox 
| (ж 


read the arrangement ; 
Set RZ, WZ and BZ to empty ; 
Set X to include all the elements ; 
repeat 
case first colour in zone X of 
white: include the first pebble of X in WZ and 
advance X ; 
red: begin 
exchange the first pebble of X with the 
first pebble following RZ ; 
advance RZ 
end ; 
blue: begin 
exchange the first pebble of X with the 
first pebble preceeding BZ ; 
advance BZ 
end 
end | 
until X has no elements ; 


Z can be denoted by the number of the last bucket in RZ 

` since the left end of RZ is always 1 (RZ last). It should 
be initialized to zero. 

Z сап be denoted by the number of the first bucket in BZ 
since the right end of BZ is always N (BZ first). It should 
be initially (N+1). 
can be denoted by the number of the first bucket in X 
(X first). The right end is (BZ first-1). X first should 
be initially 1. 


Z need not be denoted since its left end is (RZ last-*l) and 


its right end is (X first-1l). 
The complete program, a refinement of the algorithm given 


above, appears in P6.7. 


PROGRAM DUTCHNATIONALFLAG CINPUT,OUTPUT) ; 


THE DUTCH NATIONAL FLAG PROBLEM: ж) 

GIVEN AN ARRGNEMENT OF RED, WHITE AND BLUE COLORS ж) 
REARRNGE ІТ SO THAT ALL RED'S ARE FOLLOWED BY BLUE WHICH ж) 
IN TURN ARE FOLLOWED BY WHITE COLORS ж) 

THIS PROGRAM SOLVES THE PROBLEM USING THE MININUM x) 
NUMBER OF EXCHANGES. ж) 


ТҮРЕ 
COLOUR = (RED, WHITE, BLUE): 
UAR 
ARRANGEMENT : ARRAY [1..100) OF COLOUR: 
N^I : 1..100; 
RZLAST : 0..100; BZFIRST : 1..101; XFIRST : 1..101; 
TEMP : COLOUR; 
CH : CHAR: 
BEGIN у 
(* READ THE ARRANGEMENT ж) 
WRITEC'NO OF ELEMENTS IN THE ARRANGEMENT : *); 


YU. Uu 


READ (N); 
HRITELN; 
WRITELN( "PLEASE ENTER ARRANGEMENT (R/H^B) *); 
READLN; 
FOR I t= 1 TO N DO 
BEGIN 
READ (CH); 
CASE CH OF 
'R' : ARRANGEMENT CIJ :- RED; 
'B' : ARRANGEMENT [I] :: BLUE; 
"Ы? : ARRANGEMENT [11 :: WHITE 
END; 
END; 
WRITELN; 
WRITELN(” SEQUENCE ОҒ EXCHANGE OPERATIONS : *); 
| WRITELN: 


; (ж БЕТ RZ AND BZ TO EMPTY ж) 
у RZLAST :: 0; BZFIRST := N*1; 
(ж SET X TO COVER THE WHOLE ARRAY ж» 
XFIRST t= 1; 
REPEAT 
CASE ARRANGEMENT CXFIRST] OF 
WHITE : XFIRST :- XFIRST*1; 
RED : BEGIN 
(ж EXCHANGE THE FIRST PEBBLE OF X WITH THE ж) 
(ж FIRST PEBBLE FOLLOWING RZ ж) 
TEMP := ARRANGEMENT CXFIRST); 
ARRANGEMENT CXFIRST] :- ARRANGEMENT CRZLAST+1I7 
ARRANGEMENT CRZLAST+13 :- TEMP; 
WRITELN (”ЕХСНАНОЕ ‘’,XFIRST:4,RZLAST+1:4)7 
(ж ADVANCE RZ ж) , 
RZLAST :- RZLAST + 1; 
XFIRST :-XFIRST«1 
END; 
BLUE : BEGIN 
(ж EXCHANGE THE FIRST PEBBLE OF X WITH THE ¥) 
(* PEBBLE PRECEEDING BZ ж) 
TEMP :- ARRANGEMENT LXFIRSTI; 
ARRANGEMENT LXFIRSTJ :- ARRANGEMENT LBZFIRST-12; 
ARRANGEMENT CBZFIRST-11J :- femmes 
WRITELN ("EXCHANGE ”, XFIRST:4,BZFIRST-1:4); 
(ж ADVANCE BZ жу 
BZFIRST := BZFIRST-1 
END 4 
END : 
UNTIL  (XFIRST = BZFIRST): 


(ж PRINT FINAL ARRANGEMENT ж) “С ` 4 j 


WRITELN: Pe P 
HRITELNC'FINAL ARRANGEMENT’): 21 


ا РАР‏ این лае‏ او قوی نی فک "орға‏ ااا ت саны‏ خن و ر 
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WRITELN; 
FOR 1::-1 ТОМ DO 
CASE ARRANGEMENTCII OF 
RED: WRITELN(’RED ”›; 
WHITE: WRITELN(’WHITE 70; 
BLUE: WRITELN(’BLUE ') 
END; 
END. 


NO OF ELEMENTS IN THE ARRANGEMENT : 10 


PLEASE ENTER ARRANGEMENT (R^/MW/B) 
RBWHWBWBREB 
SEQUENCE OF EXCHANGE OPERATIONS 


EXCHANGE 
EXCHANGE 
EXCHANGE 
EXCHANGE 
EXCHANGE 
EXCHANGE 
EXCHANGE 


- 


лимом 
ONNOWor 


FINAL ‘ARRANGEMENT 


s; 


= i^e 


WHITE 
WHITE 
WHITE 
BLUE 
BLUE 
BLUE 
= BLUE 
= BLUE 


3 Р6.7 Program to solve the Dutch national flag problem 


The number of exchanges made by the above algorithm is at 
most (n-1) (prove this statement).[] 


Merging of Two Arrays 


Groups of data, collected or computed at different times, may 
require to be put together, to get an overall picture. For 
instance, two arrays may be merged to get one single array. 
This operation is illustrated by the example below. 


Example 6,8 (Merging operation on two arrays) 


We wish to merge two arrays of integers, called FIRST and 
SECOND, nu are in ascending order, The resulting array, let 
us call 1t NAL, should also be in ascending order. The ord- 
ering in FINAL should be obtained by the merge operation it- 
self and not by separate sorting. 

Let us utilisé@®the fact that FIRST and SECOND are already 
ordered. At every step, let ТОР1 and TOP2 denote the first of 
the elements of FIRST and SECOND respectively, which are yet 
to be inserted іпсо FINAL. 


E 
1 
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We compare FIRST [TOPI] with SECOND [TOP2] and insert 
the smaller of the two into FINAL, Тһів process continues 
till one of the two arrays ends. Then the remaining elements 
from the other array are simply moved to FINAL. This method 
is illustrated below. 


-10 -10 
-5 c5 
FIRST 2 0 
120 2 
0 79 
79 101 FINAL 
101 120 
SECOND | 300 300 
991 991 
1000 1000 


The following algorithm serves our purpose: 


begin 
read FIRST and SECOND ; 


perform initializations ; 
while FIRST not over and SECOND not over do 
if FIRST[TOP1] «SECOND[TOP2] then 


` begin 
insert FIRST[TOP1] in FINAL ; 
TOPl :- ТОР1+1 


begin 
insert SECOND [TOP2] in FINAL ; 
TOP2 := ТОР2+1 
end ; *end of loop* 
Җ(*ТОР1 denotes the first of the elements in FIRST 
which are yet to be inserted in FINAL *) 
(*Similarly, TOP2 for SECOND) 


if FIRST is over then 
move remaining "elements of SECOND to FINAL 


else if SECOND is over then 
"move remaining elements of FIRST to FINAL ; 


write the array FINAL 
end 


The refinements needed are very simple: 


initially, since none of the elements have been 
inserted in FINAL, we have 

TOP1 := 1 

TOP2 := 1 


xx С 7 pex » 
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inserting an element into FINAL simply involves an 
assignment to the next available index 

moving the elements of an array into FINAL, when the 
other one is over, is done by a for loop 


Incorporating these refinements in our algorithm we formu- 
late the final program for merging as in P6.8.[] 


PROGRAM MERGE CINPUT,OUTPUT); 


(ж GIVEN THO SORTED ARRAYS, IN ASCENDING ORDER, THIS PROGRAM ж) 
(Ж MERGES THEM TO PRODUCE A SINGLE ARRAY ALSO ІН ж) 
(ж ASCENDING ORDER . ж) 


UAR 
FIRST, SECOND : ARRAY [1..100] OF INTEGER: 
FINAL : ARRAY Г1..2001 OF INTEGER; 
M.N.J, TOP1, TOP2 : 1..100; 
ж I: 1..200; 
BEGIN 
МВІТЕС”ЕМТЕВ LENGTHS OF TWO ARRAYS :*)5; 
* READ (M,N); (ж READ THE THO ARRAYS ж) 
a WRITELN: | 
қ WRITELN(’ENTER ELEMENTS OF FIRST ARRAY’): 
T FOR I := 1 TO M DO 
с READ (FIRST CIJ 5; 
WRITELN? 
WRITELN(’NOW ENTER ELEMENTS OF THE SECOND ARRAY’); 
FOR I :- 1 TO N DO 
READ (SECOND CIJ); 
Е И 
(ж I DENOTES FIRST AUAILABLE INDEX OF FINAL x) 
TOP1 :- 1; TOP2 :- 1; 
(ж ТОР DF THE ELEMENTS YET TO BE INSERTED FO THE TWO ARI ха 
WHILE (TOPi1 <= М) AND (TOP2 <= ND DO 1 
BEGIN 1 
(ж SELECT SMALLER OF FIRST СТОР11 AND SECONDLTOP21 x») 
(ж AND INSERT IN FINAL ж) 
IF FIRST СТОР1Ј < SECOND CTOP2) 
THEN 
BEGIN 
FINALLIJ :- FIRST L TOP11; 
TOPi := TOP1*1 


аё 


END 
ELSE 
BEGIN 
R ` FINAL [12 t= SECOND ГТОР21; 
P TOP? := ТОР2+1 
ý END; 
! Tots Ізі 
END; %, 


IF ТОРА > М 
THEN (ж FIRST IS OVER x) 
FOR 7 :- TOP2 ТОМ DO 
(ж MOVE REMAINING ELEMENTS OF SECND TO FINAL x) 


BEGIN 
FINAL CIJ := SECOND CJl; 
I 2а Іғі 

END 

ELSE 


IF TOP2 > N 
THEN (* SECOND IS OUER x) 
FOR J:= ТОР1 TO M DO 
(ж MOUE REMAINING ELEMENTS OF FIRST TO FINAL жо 
BEGIN 
FINAL CI} := FIRST C3); 
Іі: 1+1 


END; 
л. 
e к 


WRITELN; 

WHRITELNC'FINAL ARRAY (MERGED) *); 
WRITELN; 

FOR J := 1 TO €I=-4) DO 


(ж WRITE THE ARRAY жо 
WRITE (FINALCJ1:4) 
END. 


ENTER LENGTHS OF TWO ARRAYS :5 5 


ENTER ELEMENTS OF FIRST ARRAY 
1357 95 


NOW ENTER ELEMENTS OF THE SECOND ARRAY 


2 4 6 8 10 
FINAL ARRAY (MERGED) 


1 2 3 4 5 6 7 8 э 10 


P6.8 Program to merge two arrays 


6.3 HIERARCHICAL DATA STRUCTURES 


Arrays 


In Chapter 5, we mentioned that a structured type can be a 
field of a record type. As an example, we defined the type 


rational as: 


type rational - record 


Intpart : integer 
Fracpart : record 
num 

denom 


end 
end 


Data structures of this kind, whose components are in 


turn data structures, are called hierarchical data struct- 


ures. The hierarchy can be seen in Fig. 6.2. 


rational 


FIG. 6.2 A hierarchical structure of type rational 
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Just as a field of a record can be another record, ele- 
ments of an array can ín turn be arrays. For that matter, 
elements of an array can be of any structured type, а8 shown 


in the syntax diagram of Fig. 6.1. 
As an example of hierarchical array structures, let us 


look at matrices. А matrix is normally represented as 
411 812 --“ ain 


А4 |491: 422 ТЕ 


8411 8,2 ... aan 


We can see that a matrix is а sequence of rows, where each 
row is a sequence of values. This statement is denoted in 


PASCAL as 


type row = array п 2% 101 of Т 
type matrix = array fa Ager of row 


where T is any type. 


The hierarchical structure of the type matrix is depicted in 
Fig. 6.3. ) 

Suppose the variable A is defined to 
be of type matrix. Then АП) refers to 
the first row of A, which 1s again an arr- 
ay. So the jth element of the first row is | mar | 
denoted as A[1] [i]. This would be written 
in the normal notation as л). Actually, array 
this is more conveniently written as Ef : [=] 
от Ay 4: The implícation of the latter no- 

» 

tation is that А is а two-dimensional str- array 
ucture, rather than a hierarchical struct- 
ure. (By dimension, we mean the number of 
indices or coordinates required to refere- 
nce an element). Because;of the wide usage RIE 16 8 Hierarchical 


of multi-dimensional structures, PASCAL ге 

allows us to consider' hierarchical arrays E of a two- 
as multi-dimensional. Using this facility, imensional matrix 
the type matrix can be equivalently defined 


425 type matrix = array Б 22105 25524 10] of T 
The jth element of the first row can be denoted as ^ [1,3] * 
Example 6.9 (Matrix addition) 


Two matrices, A and В, of order М/Х М can be added to yield 
another matrix C of the same order as follows: 
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begin 
for i := 1 to M do 
add ith row of А and ith row of B to yield ith row of C 
end 


The operation to add' rows can be refined as: 


begin 
for := 1 to N do 


A(1,4] #8 [4,9]‏ =: لاا ر 


Note that the hierarchy of the data structure reflects in the 
hierarchy of the program structure. 


Example 6.10 (Exchanging the two diagonals of a matrix) 
Given a square matrix A of.order n x n 


45 812 ... аза 
851 852 ... r4 


exchanging the diagonals.requires exchanging 411 "with a ios Mrs 


in 
with a and finally are with aal" In the ith step, we 


2 ЧЛ: 
have to exchange 814 with aj a-141! The following PEGs; en 
segment performs this task. 

begin 


or i vn to n do '^ s1 7819 insesm on'vd ai 31 
e 53 > Ж, f oria 


Ж sas ay E j dT "ab pu 
1,n- 1*1] іт temp Y eats" 
en Г] 9 b Gt 


end. £3 d Br \ a 250200 


сха 6. n (батек multiplication). x j ba: 7 i boat jas 


Suppose А ап4 В are partesi of ordiri mxn. and nxp? tet abt Ate е 
Then their product С is a matrix of order mxp with its ibi juts 
c [1,1] defined as the inner product of ith row of А and jth: А 
column of В, i.e. 


EE OE s 


3 
Р. 
^ 


жабулы жест, 


Г 


5 


ылы. аны. 


т 
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The algorithm for computing elements of C can be written as: 


for i :- 1 to m do 
for j := 1 to p do 
set c[1,3] to innerproduct of ith row of A 
and jth row of B 


end 


Matrices are two-dimensional arrays. We can use in PASCAL, 
arrays with any number of dimensions. Imagine a library with 
several floors, each floor contains several racks where each 
rack has several shelves. To store the names of the books using 
these indices, we require a five-dimensional array, possibly 
declared as ' 


var listofbooks : array [0..maxfloor,l..maxrack, 
0..maxshelf,0..maxbooks, 
l..maxlength] of name 


The name of the bth book on shelf s of rack r on fth floor can 
then be referenced as: 


listofbooks ГЕьх,8,5) 


It is by no means necessary that hierarchical data struct- 
ures should only be made up of arrays. An array may have reco- 
rds as elements and a record may have one or more arrays as 
its fields. The following example uses an array of records, one 
of which is again an array! 

How do we reference an element of such a complicated data 
structure? Using a sequence of selection and subscripting oper- 
ations, of course. If a variable is of an array type, an elem- 
ent of it is referenced by subscripting. Such an element is 
again a variable. If it is of record type, a field of it 15 
referenced by selection, which is іп turn а variable and so on. 
Figure 6.4 shows the syntax of a variable using these two oper- 
ations. 


Example 6.12 (Encoding messages) 


Defence messages are usually transmitted in coded form to main- 
tain secrecy. Such codes meet the following requirements: 


a Аа 
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variable identifier 


field identifier 


FIG. 6.4 Syntax of a variable 


. the code must be able to represent any message 
unambiguously 

e it must take so long for the enemy to decode it, that 
it loses its relevance! 


For our purposes, we believe the following code meets these 
requirements: 


Letter Code Letter Code Letter Code 
A 2 L 90846 W 759 
B 7454 M 7165 x 7060 т 
С 6319 N 6571 T 81 
D 802 0 4 7 6060 
Е 5 Р 8591 
Е 84624 0 82 blank 0 
с 73 R 93 
H 923 S 9185 
I $ T 61 
J 83 U 36 
K 647 у 725493 


The message 
'AT REP ACK' 


would be coded as 
26109358591026319647 


Does the message make any sense? What if REP implies that the 
previous letter has to be repeated? 

A program to encode a given message follows. We shall 
output the coded message five digits per line, together with 
line numbers, to ease the key operator's job (assuming that 
the computer does not transmit directly). So the output should 
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look like 


26109: 

| 35859 . 13 E 
10263 
ГЕ: 19647 


Let us use the character $ to denote the end of input mess- 
age. Our skeletal algorithm is: 


begin і 
read the table of codes 
perform initializations 
read a character of the message ; 

E while character <> '$' do 

p begin 

output the code for character ? 

%- read the hext character of the message’. 

end қ tire гй 


DUN 


end . Tir: әсі wa 
To design a data structure for the table of Codes, we note 
that the code for a character is a variable length sequence of 
digits (at most 6 digits long). So the code for each character 
will have two components: - ( : 
1. length of the code, and 5252 É ышы 
. 2. the. sequence of digits { © 4 
This leads. ив to the даса structure: 


var table : array [char] of record Е 

95 DAL CURIE NE , 
m “code : array [1 .. 6] of 0 .. 9 
ї i епа * Ч k 
`, Тһе variable table maps every character onto a record. The 
22 record has the two fields mentioned above. The second field 
, is in turn an array containing the sequence of digits. For 
instance, the second digit of the code for 'V' is referenced 
as 


table buy. code [2] 


‘This structure is depicted in Fig. 6.5. So the operation to. 
read the table is refined as UKE 4 


re 


begin ES 
^w .(*read nie table of codes*) = + aom. <A BESS KS o5 
à for ch := ‘A’ to VAM do - Ез487 «d esu obr-i2u00Iveq 
іі; begin: болп» 263 0 1 
44072 23197: read tabla Г]. га з sab bebo ) 
РЕ 2 лс Жол іи" bote tables ay 010620002 . l 
Bree aus...) read (table Тек). геоде [f]? € 5i 


ПИА bi Be да. 1А. жы» Шы» 2 ізіь Аг... 
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read (table Û J. 1ng) ; дэ! 
for 1 = 1 to table ' ' . Ing do | 
read (table (' ']. code [1] ) 


б 
з 
с. 


FIC. 6,5 Тһе data structure 'table' 


The coded message has to be output five digits per line. 
So, a count is to be kept of digits output on the current line 
such that the program can go to the next line when count reaches 5 
5, өте 
Similarly, we have to keep count of the lines so that we 
can print the line number on every line. These two counts, let 
us call them digitcnt and linecnt respectively, have to be ini- 
tialized to 0 and 1. The operation to output the code of a.cha- 


racter can be refined as: АНЕ 


Беріп 

(*output the code for character*) 1 U 
for i := 1 to table [ch]. 1ng.do i w wî i ; nas 
begin - 14747, 
write (table [ch]. code[i] :1 ; br E 545 

digitcnt := digitcnttl з. қ dY fU 
if digitcnt = 5 then , : 
Бекіту 2 қы, 
writeln ; с 
digitcnt += 0 ;linecnt:= 
ҚАЙЫ 3 ingonbkl 
write (linecnt, ' ' :2) 
d итога 


- 


141 


Correspondingly, the initializations-to be performed are 


Pm ix оГ. uL fos a 
EUM 
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2. begin 

(*perform initializations*) 
digitcnt := 0; 

linecnt'":- ] > 

write (linecnt, ' ' :2) 


end 


PROGRAM ENCODE (INPUT, OUTPUT); 


(ж A GIVEN MESSAGE. жо 


VAR 
TABLE = ARRAY [CHAR] OF RECORD 
LNG : 1..63 


Р CODE : ARRAY ti1..61 


END; 
DIGITCNT : 0..5; 
LINECNT ^I : INTEGER: 
i CH + CHAR: 
А BEGIN 

(ж READ THE TABLE OF CODES ж) 

FOR GH :- “а” TO 'z' ро 

BEGIN 


МРІТЕС”ЕМТЕВ NO. DF CODES FOR CHAR 
READ (TABLE [CH1.LNG); 


WRITELN; 
WRITELNC’NON ENTER CODES 70: 
FOR I :- 1 TO TABLE CCH].LNG DO 
READ (TABLE E[CHJ.CODEL I3) 
END: 
WRITELN; 


WRITE ENTER NO. OF CODES FOR SPACE "ә; 


READ (TABLE Г, *J. LNG); 


WRITELN; 
WRITELNC’NOW ENTER CODES FOR SPACE ”); 
б FOR I :- 1 TO TABLE E" 71.1М6 DO 


қ READ (TABLE С” ^3J.CODE CI); 
(ж PERFORM INITIALIZATION *) 
DIGITCNT :- 0; 
LINECNT і; 
WRITELN; 
WRITE (LINECNT», ^ 7 :4); 
(ж READ FIRST CHARACTER OF MESSAGE ж) 
READ (CH)? 
WHILE CH <> '$*' DO 


BEGIN 
(ж OUTPUT THE CODE FOR CHARACTER ж) 
FOR 1:= 1 TO TABLE (CH) .LNG DO 
| BEGIN 
4 WRITE (TABLE CCH] CODE СІЗ: 
DIGITCNT t= DIGITCNT + 1; 
IF DIGITCNT : 5 
THEH 
BEGIN 
WRITELN? 
` DIGITCNT :- 0; 
LÀ LINECNT:= LINECNT + 1; 
WRITE ( LINECNT, ’ * 
END 
END; 


(* READ NEXT CHARATER OF MESSAGE ж) 
READ (CH) 
Fun 


9 Program to P a message 


"CH," 


:4 9 


* The complete program can now be written as in P6.9.[] 


(ж THIS PROGRAM FIRST INPUTS THE CODES CORRESPDNDING TO *) 
(* ALL ALPHABETS AND SPACE.IT THEN USES THESE CODES TO ENCODE жо 


DF 0..9 
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Example 6.11 (Printing plot of a function) 


In Example 4,11, we developed a program to plot the curve of 
the form 


y = £(x) 


We could not take a horizontal x-axis due to the lack of tools 
then to store the y-values corresponding to each x-value. 

To take a horizontal x-axis, we may use a data structure 
of the form 


var plotpoints : array [1 * s 50] of record 
x,y : real 


end 


We can compute the y-values for the 50 x-values and store 
them in this data structure. Later, we can sort this array in 
the ascending order of y, and print the plot line-by-line 
using this sorted array. 

Alternatively, we store the entire page-image in 


var plotvage : array [1 £26055 1 wa 100] of char 


Here, the first index gives the line number and the second the 
character position within a lima. We can initialize the whole 
array to blanks, and store the plot character ('X') in the app- 
ropriate page positions as the plot points are computed. 

We shall follow the second approach because it is more ver- 
satile and leave the first as an exercise. 

The approach is similar to that of Example 4.11 but instead 
of printing line-by-line, we create a pageimage and then print 
it. If the function to be plotted is 


y = sin(x) 
then the algorithm below serves our purpose: 
begin 


Initialize pageimage to blanks ; 
put the axes in pageimage ; 
* 1-007 
repeat 
y := sin(x) ; 
compute lineno. for у; 
compute position for x ; 
pageimage [1ineno, position] Hb qi 
Increment x 
until x = 2x pi; 
write pageimage 


о 
2 
a 


op Mt 41% 


We assume that the plot should be vithin 61 lines and 101 
positions. The final program is given in P6.10.[] 


Vins э! 


_ PROGRAM PLOT (OUTPUT); 


(x PROGRAM TO PLOT THE SINE FUNCTION. ж» 
{ж THE COMPLETE IMAGE OF THE PLOT, INCLUDING AXES ж) 
(I IS) SAVED ANDSTHEN DUTPUT AT THE END.- ж» с 
аа 82 4 . 
STU 7 إو‎ 1435 
VAR 
PAGEIMAGE : ARRAY (1..61,1..101) OF CHAR; 
LINENO : 1..62: 
POSITION: 0..102; 
X,Y : REALS 
BEGIN 
24% TNITIALISE Pace IMAGE TO SPACES. ж) | - 
БЕ үсте a3 27 J> 9¥ 4 2 i 
FOR LINENO :- 1 TO 61. рор: - q bh а TT 
FOR POSITION :- 1 TO 101 DO А E 
PAGEIMAGE ELINENO/ POSITION) := * '; 
"- (ж PUT THE AXES ON PAGEIMAGE ж) 2 n ‚оза 
2 FOR POSITION :- 1.70 101 DO. E 


PAGE IMAGE ГЭ1. POSITION) == '-'; k ANTE o 9382304] 
. FOR LINENO :- 1 TO 61 DO 
$573 PPAGEIMAGE ELINENO. 13 GS t1; 13 зи хәБлі derli 11 
4 lox 210) POSITION := 0:1: , «LI Og bw Im tog 153 


EPES si yt). аз. і AIO 
ӘЙ ӨР QE eiNOO; ^^ 4 { 
ЭТ J UFRAENO :- ROUND (31-30*v)5; ё 1 
om cl (ж П. ІМЕ (CORRESPONDING TO Y жу зл s dd 2110 
POSITION :- POSITION*1; И / 


=@ч5 


б, р 1 (ж POSITION CORRESPONDING TO X ж) 
М Ввез 800 100 PáAgEIMAGE LUINENO,POSITION1 :- r; 
ар rsd bs«xs:- Х+@жР1дООл £ Р 273 4 p-as 
© UNTIL X > 2x*PI; раз lod ج‎ as 
FOR LINENO :- 1 TO 61 DO ж 
(ж WRITE PAGEIMAGE ж) (x)n 
BEGIN 
FOR POSITION :- 1. TO, 104 DO o1 
WRITE (PAGEIMAGE LLINENO,POSITION2); 
WRITELN 
Gey ах oJ "Tout 
END. ‹ UN 


P6.10 Program for the plotting sine 


6.4 MEMORY REQUIREMENTS AND PACKED ARRAYS.) : 43 
i» Each identifier declared іп a PASCAL program occupies some mem- 
` ory. The number of words occupied by an identifier depends on 
its type. In a typical computer, integers, characters and, 
booleans may require one word each and an identifier of type 
real may require two words. : 
zd the memory requirement for an identifier, declared as a 
` record, can be computed by summing up the memory requirements 
Sof fts individual components. The same rule applies to arrays 
` аз well. Ав an example, let us compute the memory requirements 


% е E © 2 о МАР» TT CANT 


pcr uu >» “уға ы м” 2 - JE 1]1.,sióéL ee e 5 5 oui үз 
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of the following variable 


INVENTORY: array mu 1000] of record 
name: array n T 50] of char ; 4 
code: stock, reorderlevel : 3 
integer si 


Ф 
р 
с. 


» 
Here, each element of the array is a record which requires a 
total of (40+3) = 43 words. As there are 1,000 elements in the 
array, the total memory requirement for INVENTORY is 43,000 
words! Obviously, a PASCAL program using this array will not 
execute (normally) on a computer that has a total of only 32K 
words of memory. 

As we learnt in Chapter 2, characters can be stored in just 
8 bits. Thus, in а computer with 16 bits per word, it should be. 
possible to pack two characters into" one word. In a 32 bits, per | 
word computer, four characters could be packed into one word. г. - 
However, when an array of characters is declared in PASCAL, unless 
explicitly specified, such packing is not done. Therefore, PASCAL 
provides two types of character arrays—unpacked and packed. mac 

Array -name, ав declared above, is unpacked, The same сап. | 
be declared to be a packed array as 


name : packed array [1 .. 40] of char ; 


This array would now require only 20 words for storage оп а. А 
16 bits рет word computer. This also reduces the memory require- 
ment of INVENTORY array from 43,000 words to 23,000 words. 

The above logic developed for packing also applies to boo-. 
lean arrays. All operations that are available.on unpacked arra- 
ys are also available for packed arrays. Л odo Anob әй 

The attribute packed can be used with an array of any type. 
Thus, it is possible for us to declare an identifier as: - 

INVENTORY: packed array [1 53 1000] of record z ) 

апе: аттау [1 2: 40] 
"of сһаг j^" 
code,stock, 0 
reorderlevel:integer 0 
end 3. 


In such instances, the PASCAL compiler (most, of, them) attempts | 
to minimize the storage requirement for each element in the | 

array. Thus, the above declaration would result in the same, memz, 
ory requirement ав it will be when neme is declared as a packed . 


array and not INVENTORY. 


NE TERAMO ET 


мел Аы. 


2%2% ) SW 


Strings іп PASCAL 


299 


Іп Chapter 3, ме introduced the string type and mentioned the 
fact that only string constants, and not variables, can be used 


| 


EMT клем 
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in a PASCAL program. А string constant is nothing but a packed 
array of characters. If we have a variable, declared as, say, 


countryname : packed array [1 ee 10] of char ; 
we can assign a string constant of 10 characters to it as 


countryname := ‘INDIA Pars 


It is possible to compare two strings and get a value true or 
false. The following are sample comparisons: 

ТАҒ > "В! is false 

"PPQRS' < 'PPQRT' is true 

"INDIA ' < 'WGERMANY ' is true 


Only strings with identical length can be compared. The compar- 
ison begins with the first characters of the two strings and 
terminates when two different characters are encountered. The 
relational operator is then applied on these two characters to 


derive the result. 
We can name a string constant in the const part of the pro- 


gram declaration. Thus, for example, suppose 10 spaces are to 
be printed at several places in the output, we can define 


const 
TAB = ' NH 


and later use TAB as 
writeln (TAB, 'INVENTORY LISTING') ; 


Note that though we can output a string of any length using a 
write statement, reading a string value into a variable has to 
be done character by character. Thus, the value of variable 
countryname can be read as: 


for i := 1 to 10 do read (countryname[i] ) ; 


The next example makes use of strings to search for a given 
word in a text of characters. 


Example 6.12 


Given a text of characters and a word as inputs, we shall dev- 
elop a program that counts all the occurrences of the given 
word in the input text. We shall assume that words in the input 
text are separated by one space character, or a comma, or a 
period. 

Assuming that the given word is input prior to the text, 
we can structure our program as follows: 


begin 
read given word ; 


initialize occurrence count to zero ; 
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while notendoftext do 
begin 
get the next word ; 
if next word=given word then 
increment count by 1; 
end ; 
print given word together with occurrence count 


To represent words in our program, we define the type 


word = packed array [1 .. 20) of char ; 
Here, we have assumed that no word will have more than 20 char- 
acters, Using this type, we can introduce two variables GWORD 
and NEXTWORD to denote the given word and the next word to be 
extracted from the text. 
GWORD , NEXTWORD : word ; 


With these definitions, we can code the task of reading the 
given word as 


GWORD := ' foy Beds 
while not (eoln) do 
begin 
read (GWORD[i] ) ; 
ice itl 
end 


We have initialized GWORD to all spaces (20 of them) so 
that if the actual length is, say 9, the remaining elements of 
GWORD will be spaces. It is necessary for us to do that for 
proper comparison of GWORD with NEXTWORD later. 

Denoting the occurrence count by the integer variable 
WCOUNT, we can initialize it as 


WCOUNT := 0; 


The task "рес next word' needs more thought for coding 
into PASCAL! We can expand it (or refine it) in terms of simp- 
ler tasks in PASCAL as follows: 


NEXTWORD := ' їс; 
i := 1 ; read (ch) ; 
repeat 
NEXTWORD [i]:= ch ; 
4-15 с 5 
read (ch) 
Until ches ое cho =" i or ch wu отво 


Here, we begin by initializing NEXTWORD to spaces for the same 
reason as outlined earlier for GWORD. Successive characters 
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from the input text are then. appended to NEXTWORD until a 
Space or a comma or a period is encountered. This loop also 


terminates when the input text is exhausted. 


Comparing the two words is a relatively easy task. It can 


E be coded into PASCAL as 
if GWORD = NEXTWORD then WCOUNT := WCOUNT+1 


is used. [D ETT: о 


^d | 
A 1225 
- 
PROGRAM [HORDCOUNT ванғот аланин ITE 


c» thts’ BeboRaw T TAKES 4 uoRD. AND A TEXT AS INPUT ж) 
сж АНП OUTPUTS THE FREGUENCY COUNT OF THIS WORD IN THE TEXT. 


CONST SPACES = ” >; 
ТҮРЕ 
WORD-=ARRAYC1.. 161 or CHAR: 
ЧАВЕ оор Беэ 5 ) 
GWORD, NEXTHORD : WORD: 
WCOUNT,I : INTEGER; 
DONE: BOOLEAN; ut" 
CH: CHAR: Т wc 


BEGIN 
. (*READ GIVEN WORD») 
ҒОР 1:=1 TO 16 DO GHORDLIJ 


WRITE< "WORD PLEASE : 73: 
READ( CH): 

то? 
WHILE CH< >” * DO 


T63 3é 78ERB(CH); To 

ENDS 733 5 ( 

„f C+ READ THE GIVEN ТЕХ) 
иёашнт : 6; 2 7 


DONE: FALSE; 
WHILE NOT DONE ро 
BEGIN 
,,C*GET NEXT WDRD*) 
4/711 202 жан 17439 YO 16 DO NEXTHORDLI2:-' "C 
te- ¥ йаз HE ! 
READ (CH); d 
IF CH-'$' THEN DONE: = TRUE 


Э@ве s 


зізфеттейі; 2 


‘ WRITELN C^THE WORD’, GWORD, 'OCCURES", WCOUNT: 4, ‘TIMES’ ); 


ЫЛ 


ELSE ж 
BEGIN d MUSS 
REPEAT зі 
5 NEXTWORD СІІ := CH; 

I 22 +43 2 
READ (CH); ЖҮЗ тұ 
UNTIL CCHS” ^) OR (CH.z ">"? JOR. СОН = J 

END; " 


; 39 d*COMPARE! HXTH,GIUEN WORD AND INCREMENT COUNT IF SAMEXD. 2 
۴ IF GWORD = NEXTHORD THEN WCOUNT :: HCOUNT + 12 
р 2 3 «ЖОҒ, WHILE) (80977 4 
> жРВІМТ, WORD. COUNTS) Үй 


Тһе complete PASCAL program to perform the earlier stated 
task is given in P6.11. The condition 'notendoftext' is repl- 
aced by "пов (895422 Also: ‘note how the string constant spaces- 


Arrays; 17$: 


6.5 SUMMARY 


| In this chapter, we have introduced the structured data type 
called arrays. Their usefulness has been exhibited by a wide 

| variety of examples. We have also shown һом to build hierarch- 

ical data structures using arrays and other data types. 

| Тһе distinguishing features of arrays ате: 

- 


| two data types are associated with arrays — the type of 
| its components, called the element type, the type of its 
| index called the index type. The index type must be a 
finite, discrete scalar type 
each component value can be selected by an index 


every element of the array uses the array identifier 
qualified by an index, as its identifier. 


EXERCISES 


6.1 (a) Given an integer x and an array А of М elements, write a program + 


to compute and print the number of times x occurs іп A. 33 

(b) Modify the program written for (а) so that first а list of all 

i such that А = x, is printed, and then the total number of occu- 
ггепсеѕ is printed. If x does not occur in А, then a message 


X-DOES-NOT.OCCUR ІМ THE GIVEN. ARRAY 
should be printed. v жас H d um 
6.2 (a) Write a program to read a 12-letter word and print the message 
ner 2° , 16 А PALINDROME zt 
if it spells the same bothways (e.g. Madam), otherwise the message 


4... IS NOT A PALINDROME UE 
ts to be printed. } E 
(b) Write-& program which reads a complete sentence, terminated by a 


period, and prints out whether it is a palindrome or not (e.g. the 
sentence — Madam I'm Adam is à palindrome). Eu 


6.3 Consider the following declarations 
type Доо 


y i pecora, 6 219 авт 8 
"Pp : char ; | e 
q : array [rat 2. %4 of integer 

end ; 


: pac d array [1 .. 2] оЁ сһаг 


A 4,8 


iiem ГОРУ ое 


алайда. 


- 


ca dr die TN uA ides Ре 


UST UT "HS 


SEO 


- 
Vee 


176 Introduction to PASCAL 


van 
“u,v : рес ; 
With respect to the above declarations, which of the following 
operations are valid: 


(а) u := v 

(b) u := ужу 

(с) uy := v.y 

(d) u.y := v.y + 1 

(e) u.y.p := succ (v.y.p) 

(f) u.y-z :- 'IS IT VALID?' 

(g) if u 7 v then writeln ('u and v are not same!) 


(h) If u< v then writeln ('u is less than v') 

(i) u.y.q [v.y.P] := v.y.q [2.y.5] 
А stamp collector maintains a stamp album, The pages in the album 
are organized in a sequence according to different countries, For 
one country, there may be more than one page. On each page there 
аге zero ог more stamps belonging to the corresponding country. 
Each stamp is identified by the parameters—country, denomination, 
year of issue and an at most 20 character description. 

Define a type stamp and using it define another type stampalbum. 


An NXN boolean matrix, say x, is given, Write а program which reads 
its elements and computes the transitive closure of x. The transi- 
tive closure of x, denoted by x* is defined as 

x* = T+ х+х?+ wee x” 
Here, I is the identity matrix—all diagonal elements have value 
true, the rest false. Matrix multiplication and addition can be 
performed using the following rules: 


* false true * false true 

false false true false false false 
true true true true false true E 
Consider a map of N cities. The map shows the routes between | 


different cities. Using this map, a connectivity matrix, name it C, 
has been constructed, There are N rows and N columns in the matrix 
one corresponding to each city. 

An element corresponding to city c i and а denoted as С 594 


is true if there is a direct route between the two cities (i.e. 
there is no other city along this route. Otherwise, the value of 
this element is false. 
Write a program that inputs: 
1. Number of cities, 
2. Names of cities (20 characters per name), and 
3. The elements of C matrix 


—_ hau ы. OE c © Аз Ё "мөнгү d pur. VENIENTE 


Arrays 177 


The program then takes a city code (an integer between 1 and N) 
as input and prints out: 
1. Names of cities corresponding to the codes 
2. All possible routes between the two cities. A route may be 
printed by enumerating all cities encountered along it. If 
no route exists, a suitable message should be printed. 
Use the transitive closure technique described in Exercise 6.5, Notice 
that the matrix C can be used to determine all routes. 2Ё, for 
example, Cle; 5) is true and Cle, ск) is also true, then Cle, зс 


x) 
will be true, 

Data about several books in the field of microprocessors is avail- 
able on cards. There are two cards per book, punched according to 

the format given below: 


cardi, columns 1-40 —author's name 

cardi, colums 42-80 --папе of the book 

саг42, columns 1-20 —publisher's identification 
card2, columns 22-25 —year of publication 


Write a PASCAL program that reads this data from cards and then 
provides information, In order to extract information from the pro- 
gram, a question is asked in coded form. The question, again input 
on one card, consists of a question code — an integer from 1 to Ч, 
Together with the code, exactly one of the four items mentioned 
above (author's name, book's name, year of publication and publisher's 
—_— is specified. These codes have the following ‘meanings: 


Meanin, 
(Colum 1) (Column 3-80) 
т. List all books by the author specified 
2 Find the author, publisher and publication of 
the book whose name has been specified 
3 List all books published by the publisher specified 
ц List all books, together with their author's name 
and other information, published in the year 
specified. 


Your program can assume that the card deck containing the infor- 
mation about books ends with an '$' character in the first colum. This 
is followed by the card deck of questions, The end of this second deck 
being indicated by a card with the $ character in column 3. 


The binary search method to search for an element x in a given array 
A of N elements, can be programmed as follows: 

var : 

— top, bottom, mid : 1 .. N ; 


A : array [1 .. N] of integer ; 


x : integer 
begin 
read (x) ; top += 1 ; bottom := N ; 
repeat 


mid := ( top + bottom ) div 2 ; 


> 
is А [mid] < x then top “i= mid +4 ; 
if A [mid] >х then bottom := mid - 1; 


until top > bottom ; 
write ( mid, top, bottom ) 
end 


ad sim C. 
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(a) Verify that the above program really works properly (i.e. 
correctly searches for x in A). 
(b) Find the maximum number of times each of the three comparisons 


A [mi <х 
A [mid] >х 
top * bottom 


is performed. 
(c) Is the above program better than P6,5 given earlier in this 


chapter? 

A fast method for tne multiplication of two real-valued matrices X 
and Y of order 2N x 2N, has been suggested by Winograd. According 
to tkis method, an element of the resultant product matrix Z is 
computed as follows: 


2N 
Zu = Х Xa 
к-1 


N 
= E (oy * Taka, * Oraa + You? 
к=1 


N N 

c. * аар * 

ХХХ жа” E Ток," Тл 
ket kí 


(a) Develop a PASCAL program to multiply two real-valued matrices 
of order 2N x 2N, using the above relation, 

(b) Determine how many additions and multiplications are required 
by your program, Compare these with the corresponding number of 
additions and multiplications required by the traditional method. 


Write a PASCAL program to evaluate the following summation: 
N N N NOME 1. DARE CT SD) 
> x ЖУРЕК 23213 % 


1840-43 5 ioi ici 
Your program should read the values of N and К from the console ог 
from a card, 


A magic square is an N x N matrix with each element being an integer 
from 1 to М2 and the sum of each row, column and the two main dia- 
gonals being the same, For odd values of N, the magic square can be 
generated using the following rule: 
1. Begin by placing a 1 in the middle of the first row (the 
top опе). 
2. Go up diagonally to the left placing successive integers 


"UT og = ” PU лт мыйға. sa Sa, а эг, didis 7 ME 
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in the unfilled squares encountered, When a filled square 

is encountered, move down one step and continue again as 

mentioned above (i.e, go up diagonally towards the left). 
If you reach an edge (where you cannot move up any further in 


that direction), bounce to the opposite end of the matrix and then 
proceed, 


Here is a magic square for N = 3 


Write a PASCAL program to generate and print a magic Square 
for a given N. 


7 


PROCEDURES AND FUNCTIONS 


Fundamental principles of programming, many of which we have 
introduced in the earlier chapters, are easy to understa 

and apply. However, when it is required to develop progr 
which run into a hundred lines or more, the partitioning of 
a problem solution into simpler tasks, their sequencing, 
testing and documentation, pose à formidable challenge. 

Though the concepts already introduced still remain applica- 
ble, their appropriate application becomes a significant task. 
A major tool provided by almost all popular 'ogramming 
languages to tackle this task is that of procedures. In PASCAL 
too, a programmer can define his own procedures and use them 

just the way he defines and uses new types. This chapter is 
intended as an introduction to procedures and, their restric- 
ted forms, called functions. 


7.1 THE BASIC CONCEPT 


We are а11 familiar with the concept of procedures. During the 
learning process that one continuously undergoes, one acquires 
a rich variety of procedures for performing various tasks. Let 
us cite a few common examples to illustrate the point. А cash- 
ier at a grocery stores counter uses a simple procedure (that 
exists in his mind) to compute the change to be returned to 
the customer who is paying the bill. 
This procedure operates upon the following quantities: 
„ the amount to be collected from the customer 
е the amount actually given by the customer to the 
cashier 

e the notes and coins that the cashier possesses. 
The result of using this procedure is the number of different 
notes and coins which should be returned to the customer, We 


n say that the three quantities mentioned above, on which the 
4 procedure is applied, are the inputs to the procedure. The 


ae 
NON 


ы 


ie details of change to be returned, forms the output of the 
б: procedure. 


4 
- 
] 
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As another example, many of us have a procedure (existing 
іп our mind) that operates upon any temperature value in 
Celcius units and converts it into equivalent Fahrenheit units 
and vice versa. Whenever required, we use this procedure and 
perform the appropriate conversion. 

When we are faced with a problem, we attempt to solve it 
with the aid of one or more of the procedures that we already 
know of. In many cases, we try to search for a procedure in a 
book familiar to us or ask a friend about a procedure. А pro- 
cedure itself uses many simpler procedures to perform a task. 
For example, the procedure for converting temperature from 
Celcius to Fahrenheit units, uses another procedure to multi- 
ply two numbers, and yet another procedure to add two numbers. 

While writing computer programs, it is convenient to split 
a task into a sequence of simpler tasks and then code these 
simpler tasks into PASCAL. As we shall learn in this chapter, 
the notion of procedures, and the formalism that goes with 
it, aids a programmer in program development by enabling him 
to code these simpler tasks as procedures. The way of writing 
procedures in PASCAL and their use is described below. 


Procedures in PASCAL 


To learn how procedures are written, let us take an example. 
We shall develop a program for tabulating the results of 
a sports event. The data given for the problem consist of: 

1. name of each team, and 

2. points obtained by each team in the event. 
The output from our program should be a list of these teams 
їп the order of their standing—team with highest score first, 
followed by the team with the next highest score, and so on. 

A little thought leads to the program structure shown in 
(1). The problem mentioned above thus requires three simpler 
tasks to be performed as exhibited in (1). Each of these tasks 
can now be coded, into PASCAL as a procedure. 


program tabulatescore (input,output) ; 
(*declarations*) 


begin 
readteamdata ; 


(1) sort teamdata ; 
printsortedteamdata 
end 
before we undertake this coding, we need to decide 


data will be represented in our program. Ав is 
hree tasks mentioned there operate 


However, 
how the teams 
evident from (1), all the t 


upon these data 
We can tead all the input data into a variable TEAMSDATA 


кте г Даль ы ҮМ дуз ‚чле, ЭР у Щр" OO ы...“ 
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which is declared as 
TEAMSDATA : array [ 1 .. nteam] of TEAMDETAILS ; 
The type TEAMDETAILS can be defíned as 


TEAMDETAILS = record 
name : TEAMNAME ; 
score : integer 
end ; 


Further, type TEAMNAME can be defíned as 
TEAMNAME = packed array [1 .. nchar] of char ; 


Неге we have assumed that the name of each team is available 
in the input as a string of nchar number of characters. 

Incorporating the types, variables and constants intro- 
duced above into (1), we get (2). 


program tabulatescore (input,output) ; 
const 
nteam = 50 ; 

nchar = 20 
type 

TEAMNAME = packed array [1 .. nchar] of char ; 

TEAMDETAILS = record 

name : TEAMNAME ; 


(2) score : integer 
end ; 
var 
TEAMDATA : array [1 .. nteam] of TEAMDETAILS 
begin 


readteamdata ; 

sortteamdata ; 

printteamdata 
end 


We shall now write a procedure corresponding to the first 
task specified in (2), as well as in (1). Each procedure we 
write, has to be named. The name can be any valid PASCAL iden- 
tifier. Naming the procedure to read team data as readteamdata, 
we can code this procedure as іп (3) 


procedure readteamdata ; 
var 1, ] : integer ; 


begin 
for i := 1 to nteam do 
begin 
with TEAMDATALi] do 
(3) begin 
readin ; 
for j := 1 to nchar do 
: read(name[i1] ; 
end ; 
: end ; 


| end ; (* of procedure readteamdata*) 
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The procedure in (3) resembles PASCAL programs that ме 
have written ín the earlier chapters. The only difference 
between (3) and a PASCAL program is in the чы part. 

In a PASCAL program, the heading begins with the keyword- 
program, In а PASCAL procedure, it begins with the keyword ~ 
procedure, 

The heading, which also specifies the procedure name, is 
followed by declarations and the procedure body. The proced- 
ure written in (3) defines the identifier readteamdata just 
as identifiers are defined in constant, type and variable 
declarations, Thus, the nature of this identifier is ргосе- 
dure, just as an identifier could be a constant or a variable 
or a type. 

We can now incorporate the definition of the task read- 
teamdata in (2) to obtain (4), Notice how the declarations 
are ordered in (4), constants followed by type declarations, 


program tabulatescore (input,output) ; 
Sonst 


nteam = 50; 
nchar = 20 


type 
TEAMNAME = packed array [1 .. nchar f char ; 
TEAMDETAILS = recor J st 
name : TEAMNAME ; 
score : integer 
end ; 
y ші с 1 
TEAMDATA : arra 1 .. nteam of 
TEAMDETAILS ; 
procedure readteamdata ; 
var 
JEF j : integer ; 
(4) begin 
for i t= 1 to nteam do 
begin 
with TEAMDATA [ 1] do 
begin 
readln ; 
for j := 1 to nchar 
do read (name[j Js 
read (score) 
end ; 
end ; 
end ; (* of procedure readteamdata *) 
begin 
readteamdata ; 
sortteamdata ; 
printteamdata 
end 


АЛЫМА mq. 


Е. 
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followed by variable declaration and finally the procedure 
declaration. (4) is a complete PASCAL program except for the 
definition of the two procedures—sortteamdata and printteam- 
data. 

The procedure sortteamdata can be defined using the 
sorting algorithm that was programmed in Chapter 6. The algo- 
rithm in the present case, can be used to rearrange the 
TEAMDATA array so that its first element, TEAMDATA[1], con- 
tains details of team with highest score, TEAMDATA[2]that of 
team with next highest score and so on. This algorithm is 
coded as a procedure in (5). Note how the variable 'tempor- 
ary' has been used in (5) for exchanging two elements of 
TEAMDATA array. 


procedure sortteamdata ; 
уат 
temporary : TEAMDETAILS ; 
1, js integer ; 
position : integer ; 
min : integer 


begin 
for i := nteam downto 2 do 


begin 
(* of the first 1 elements in TEAMDATA, find 
team with minimum marks *) 
min := TEAMDATA[1], score; position := 1; 
for 3 := 1 to i do 


begin 
(5) with TEAMDATA[ j]do 
begin 
if шіп” > score then 
begin 


min :* score ; 
position := 3 
end ; 
end ; (* of with *) 
end ; (* of inner for loop *) 
(* Now shunt this team's details to the ith position 
in TEAMDATA array *) 
temporary := TEAMDATA і ; 1 
TEAMDATA [i] := TEAMDATA [position] ; 
TEAMDATA [position] :* temporary 
end ; (* of the outermost-for loop *) 


end ; (* of procedure sortteamdata *) 


Finally, procedure printteamdata is coded as in (6). 
This procedure merely prints the contents of TEAMDATA array, 
which is sorted іп proper order, after printing suitable 
headings, etc. It uses two more procedures —printheading 
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and printline to print the headin ; 
в and each line of the E 
Hs respectively. These two procedures are also defined 
Integrating all the procedures, t қ 
уре and variable defin- 
itions, we get the complete PASCAL prontas that was у 
на GEE ETE, 1: this section, as shown in P7.1. Опе 
xamine it carefully b 
Mies Pu е y before proceeding further in 


PROGRAM TABULATESCORE CINPUT, OUTPUT >? С 
(ж THIS PROGRAM TABULATES SCORES ОҒ VARIOUS TEAMS ж) i 
(ж PARTICIPATING ІМ A TOURNAMENT *) 
(* THE SCORES ARE PRINTED IN DESCENDING ORDER. *) 


CONST 
NTEAM = 5; 
NCHAR = 10: 
TYPE 


TEAMNAME = STRINGCNCHARI? 
TEAMDETAILS = RECORD 
NAME : ТЕАММАМЕ ғ 
SCORE : INTEGER 
END; 


VAR 
TEAMDATA : ARRAY C1..NTEAM] OF TEAMDETAILS; 


PROCEDURE READTEAMDATAs 


VAR 
I,J : INTEGER? 
BEGIN 
FOR I := 1 TO NTEAM DO 
BEGIN 
WITH TEAMDATA CIJ DO 


BEGIN 
WRITEC’TEAM NAME PLEASE : 7)i 


READLN (NAME): 
WRITE TEAM SCORE PLEASE :’)3 
READLN(SCORE); 
MRITELN; 
END; (ж END OF WITH ж? 
END; (ж END OF FOR LOOP *) 
END; (ЖОҒ PROCEDURE READTEAMDATA™) 
PROCEDURE SORTTEAMDATA; 
VAR 
TEMPORARY : TEAMDETAILS? 
1,1 : INTEGER: 
POSITION : INTEGER: 


MIN : INTEGER; 
BEGIN : 4 
FOR I := NTEAM DOWNTO 2 DO 4 
BEGIN 
(ЖОҒ THE FIRST I ELEMENTS IN TEAMDATA,FIND*) 
(*TEAM WITH MINIMUM MARKS*) ! 
MIN += TEAMDATA (13.5CORE; POSITION += 1; 
FOR J :: 1 TO I DO І 
BEGIN t AN 
WITH TEAMDATA (JJ DO UM 
BEGIN ] 
IF MIN > SCORE THEN р 
BEGIN > 
MIN := SCORE: | 
POSITION :: 7 


END; (ж END OF IF ж) 
END; (*OF WITH*) 
END; (*OF INNER FOR LOOP*) 
(«NOU SHUNT THIS TEAM'S DETAILS TO THE ITH POSITION IN TEAMDATA ARRAY*) 
TEMPORARY : = TEAMDATA (IJ; 
TEAMDATA [1) :: TEAMDATA (POSITION; 
TEAMDATA CPOSITION] := TEMPORARY; 
END; (*O0F THE OUTERMOST FOR LOOP*) 
END) («OF PROCEDURE SORTTEAMDATA®) 
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PROCEDURE PRINTTEAMDATA; 
VAR I: INTEGER: 
PROCEDURE PRINTHEADING; 
CONST 
TAB = 
REGIN 
WRITELN; HWRITELN; 
WRITELN (TAB. ‘RESULT OF XYZ TOURNAMENT’) 
WRITE (TAB, '------------------------ 27 
MRITELN; WRITELN 
END; (жОҒ PROCEDURE PRINTHEADINGx) 
PROCEDURE PRINTLINE(GERIALNO: INTEGER) ; 
CONST 
; TAB = 
| UAR 
J : INTEGER: 
BEGIN 
WRITE (SERIALNO : Э, '.')) 
WRITE (TEAMDATA CSERIALNOJ.NAME: 102) 
HMHRITECTEAMDATACSERIALNO2. SCORE:6); 
WRITELN 
" END: 
4 BEGIN (&STARTOF PRINTTEAMDATA PROCEDURE BODY*) 
PRINTHEADING; 
FOR I := 1 TO NTEAM DO 
PRINTLINE(I); 
END (жОҒ PROCEDURE PRINTTEAMDATA*) ; 
BEGIN 


READTEAMDATA; 

SORTTEAMDATA? 

PRINTTEAMDATA 
END. 


TEAM NAME PLEASE : BITS 
TEAM SCORE PLEASE :99 


2 TEAM NAME PLEASE : IITK 
TEAM SCORE PLEASE :93 


TEAM NAME PLEASE : IITD 
TEAM SCORE PLEASE :100 


TEAM NAME PLEASE : IITH 
» TEAM SCORE PLEASE :889 


TEAM NAME PLEASE : IITM 
TEAM SCORE PLEASE :300 


RESULT OF XYZ TOURNAMENT 


1. IITH 889 
2. IITM 300 
3. IITD 100 
4. BITS 99 
5. 11Тк өз 


Р7.1 Program for tabulating team scores іп a sports event 


Calling а Pr dure 


А var 
ation 


бы. constant identifier is defined in the declar- 
r Program and used in the program body. 
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procedure printteamdata ; 
procedure printheading ; 

const 
TAB s» ' Ж! 

begin 
writeln ; writeln ; 
write (TAB, 'RESULTS OF XYZ TOURNAMENT ') 
write (TAB, — —_——' 
writeln ; writeln 

end ; (* of procedure printheading *) 


(6) procedure printline ; 


TAB = ' Wea 


j : integer ; 
begin 
write (serialno : 3, '.') 3 
for j := 1 to nchar do write (TEAMDATA [i]. паше [j] 
write (TAB, TEAMDATA[1] , score) ; 
writeln 
end ; (* of procedure printline ж) 
begin (* start of printteamdata procedure body *) 
printheading ; 
sorrie] to nteam do printline ; 
end ; (* of procedure printteamdata ж) 


Similarly, а procedure identifier is defined, i.e. the 
procedure is defined, in the declaration part and it is used 
in the program body. Whenever the task, coded as а procedure, 
is to be performed, the procedure is called by merely writing 
the name of the procedure. Thus, in P7.1, procedure readteam- 
datails called by the following statement 


(7) readteamdata ; 


which appears inside the program body. 
As another example, procedure printheading is called by 


the statement 
(8) printheading ; 


inside the body of procedure printteamdata. 
The statement used for calling a procedure is known as the 
rocedure call statement. Two examples of this statement are 


given in (7) and (8), however, its detailed syntax is presen- 


ted in a later section. 
The execution of a procedure begins only when the computer 


encounters а call to this procedure—never otherwise. Let us 
now trace the sequence in which P7.1 will be executed, The 
first statement, in the body of the program shown in P7.1, is 
a call to the procedure readteamdata. The effect of executing 


vM MUT TI NENNT 5 001 жайайн һый um ... 
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this call is that readteamdata procedure is executed. After 
executing the body of procedure readteamdata, the computer 
picks up the next statement, immediately following the call 
to readteamdata, in the program body. This is another call, 
this time to procedure sortteamdata which is now executed, 

After the execution of procedure sortteamdata, the next 
statement is yet another procedure call—this time to print- 
teamdata, which is now executed. Note that during the execu- 
tion of printteamdata procedure, another procedure—print- 
heading is executed (only once) and procedure printline is 
executed exactly nteam times. 

The call to printteamdata is the last statement to be 
executed in the program body and with it the execution of the 
tabulatescore program also terminates. 


7.2 SCOPE OF IDENTIFIERS 


Ф lS 


In Chapter 3 we learnt of the structure of a PASCAL program. 
It consists of a program header followed by a block. A block 
was defined as a sequence of declarations followed by a sequ- 
"ence of statements enclosed within begin and end. We have 
named this statement sequence as the program body. , 
1% А procedure too, as mentioned in the previous sect 
- consists of a procedure heading followed by a block. Т 
~ kind of definition of a block leads to a nested structu of 
definitions. For example, the structure shown below in (9 9), 
exhibits a program named P consisting of two procedures 
named Pl and P2. Pl itself contains procedures Р11 and P12. 
Procedure P2 contains another procedure P21 which, in turn 
contains yet another procedure P211. 


program P ; 


procedure Pl ; 
procedure Pit; 


(9) begin 


end ; (* of Р11*) 
procedure P12 ; 


begin 


end ; (* of P12 *) 


AT — 2 
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begin (* start of Pl body *) 
end ; (* of РІ *) 
procedure P2 ; 


t 


procedure P21 ; 


"m 


"Арасы ал 


procedure P211 ; p 

begin х 

ы % 

( . Р 
(9 cont.) end ; (* of P211 *) 1 
begin (* of P21 body *) 3 

: 1 

end ; (* of P21 *) [ 

begin (* of P2 body *) E 

: E 

end ; (* of P2 *) 4 

begin (* of program P body *) E 

; 4 

end (* of P *) 4 

Тһе block structure of a PASCAL program is the arrangement 31 

of different blocks in the program. It is convenient to exhi- à 


bit the block structure of a program using explicit bracketing 
as shown in (10) for the program shown in (9). Each square | 
bracket shown in (10) corresponds to a block. ts 


en ee. 


(10) 


P2 У 
Р21 
[2211 


Thus,: it is evident from the structure shown in (10), that 
the block corresponding to program P encloses two more blocks— 
those of Pl and P2. Further, the block corresponding to Pl 
encloses Pll and Р12. the block in P2 encloses P21 which in 
turn епсіов2в P211. In (11), we have shown the block structure 
of P7.1 developed earlier. 3 


| 
дәге 
سم سم‎ 
nue 
ee P Ew "des 


tebulatescore р 
[readteamdata z 
[sortteamdata 
(11)| printteamdata 
[Printheading 
{спе 


"DM و‎ » чо р ГГ ЧУЧ TC Ре; 
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We have seen above that inside each procedure, we can 
introduce identifiers. Every identifier used іп a PASCAL 
program has a scope associated with it. The scope of an 
identifier is that region of the program where the identifier 
is permitted to be used. This region is merely the block 
inside vhich the identifier has been declared and inside all 
the blocks enclosed. Thus, for example, in (12) the scope 
of x is the complete program as it is declared in the 
outermost block (that corresponding to P). The scope of y is, 
however, limited to procedure Pl only as it is declared in 
that block. Thus, identifier x can be used anywhere in 
program P, even inside procedure Pl. This is not true for y 
which can be used only inside procedure Pl. 


program P ; 


var 
x 1 real s 


procedure Pl s 
(12) y : integer 


с 

о 
.. djo 
| 
а. 


епі 


There is one exception to the above stated rule for fin- 
ding the scope of an identifier. If in an enclosed block, an 
identifier is declared again, which 15 perfectly legal, then 
this block gets excluded from the scope of the identifier. 
To illustrate this by an example, let us look at (13). Here, 
the scope of x is the whole of P except for the block inside 
procedure P2. Similarly, the scope of y is the whole of P 
except for the block inside procedure Pl. 


program P 2 
var 
Жу теа 


procedure Pl ; 
y : integer ; 


begin 
(13) А 
end ; (* of P1 *) 


procedure P2 ; 
x : char ; 


begin 
end ; (% of P2 %) 


ТУТ ГҮҮ М 


Ұлы 


ua 


begin 
end (* of P %) 
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The scope of identifier y that is declared inside Pl 1s 
limited to Pl. Similarly, the scope of identifier x declared 
inside P2 is limited to P2. 

А variable declared within a procedure is known as a 
local variable because ít can be used only inside that pro- 
cedure (within itc scope). Thus, in (12), y 1з a local vari- 
able of Pl. However, x, in (12), is global to procedure Pl 
implying that though it is not declared inside Pl, the block 
corresponding to Pl is included іп the scope of x. 


Lifetime of Variables 


While writing a PASCAL program, it is always possible to 
declare all variables (as well as other identifiers) in the 
outermost block—that corresponding to the program. Thus, 

each variable is global to all procedures within the program 
and can be used therein. However, this scheme is never act- 
ually used in PASCAL programs owing to reasons outlined below. 

While writing a procedure, it is always convenient to 
define variables that are required only by the procedure as 
local to it. Thus, for example, variable 'temporary' in Р7.1 
has no meaning outside procedure sortteamdata. Defining it in 
the outermost block and using it as a global variable inside 
the procedure would amount to taking it away from its natural 
block of existence. In large programs, variables declared out 
of place will only lead to reduced program readability. 

Another reason why variables are declared where they are 
required, is concerned with their lifetime. A variable exists 
only during the execution of the procedure inside which it is 
declared. Thus, a variable declared at the head of the prograc 
block, exists throughout the execution of the program, A vari- 
able declared inside a procedure, comes into existence when 
the procedure is called and ceases to exist when the procedure 
execution is over. 

A variable occupies computer memory only during its 
existence. Thus, when a variable comes into existence, it15 
allocated the required memory (e.g. 1 word for integer, 2 
words for real). This memory is released when the variable 
ceases to exist. To explain this phenomenon, consider the pro- 
gram structure shown in (14). 

In (14) we have three arrays x, y and z which would occupy 
a total memory of 70 words, if allocated storage at the same 
time. However, this will not happen if, say, procedure P2 is 
called only after Pl completes execution. When execution of 
P begins, x comes into existence and is allocated 10 words. 
When Pl is invoked, y is allocated 20 words.'Note that stor- 
age remains allocated to x as its lifetime 15 not yet over. 
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program P ; 


x : array [1 .. 10] of integer ; 


. 


procedure Pl ; 
y : array [1 .. 20] of integer; 


begin 

E. end ; (* of РІ *) 

т (14) procedure P2 ; 

| z : array [1 .. 40 ] of integer ; 
Ж : 

| begin 


end ; (* of P2*) 


end (* of P *) 


When P1 -completes execution, storage allocated to y is 
released next, when P2 is invoked, and memory of 40 words is 
allocated to 2 which is released when P2 completes execution. 
It is thus evident that at most 50 words —-and not 70 — of 
Storage would be used up by the three arrays x, y and 2, 


7.3 PROCEDURES WITH PARAMETERS ж” 


Procedures that we have written earlier in this chapter, per- 
formed a specific task using a specific set of identifiers. In 
most programming problems, we need procedures that perform a 
specific task on different sets of identifiers. To illustrate 


this point, consider the procedure in (15). It converts temp- 
erature given in Celcius to its Fahrenheit equivalent, 


: 
т АСАР 


3 


3 procedure Celciustofahrenheit ; 

L egin 

z (15) F з= C * 5/9 + 32 

5 end ; 

( However, as it is written, the procedure іп (15) can only 

operate upon identifier C and produce the Fahrenheit equiva- 

1 lent in variable Е, Both F and C are global to this procedure. 

Я Тһе problem arises when the Celcius value is denoted by the 
variable X and its Fahrenheit equivalent is desired in vari- 

٩ able Y. One solution to this problem is to write another 
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procedure, with a different name, performing the same task 
as in (15) but on variables X and Y. This, however, would 
not lead us far. 

To overcome the above problem, PASCAL provides the mech- 
anism of parameterizing procedures if these have to operate 
on different variables on different calls. We have rewritten 
the procedure of (15) as in (16). Note that F and C are now 
parameters, specified within parentheses following the pro- 
cedure name. These are known as formal parameters. 

The scope of identifiers used as formal parameters is 
limited to the procedure body. Thus, these act as local to 
the procedure and have no meaning outside. 


procedure Celciustofahrenheit (var F, C : real) ; 
begin 
(16) F := C * 5/9 + 32 
end ; 
The above procedure can now be conveniently called to 
convert Celcius value X to Fahrenheit equivalent Y, as 


(17) Celciustofahrenheit (X,Y) ; 


In (17), X and Y are known as actual parameters. During the 
execution of the procedure in (16) as a result of CI) 
reference to F corresponds to a reference to X and, a refe- 
rence to C corresponds to that to Y. 

As another example of the use of (16), suppose that P 
and Q are arrays declared as 


Р, 0: array [1 .. ntemp] of real ; 


and each element of P, a Celcius value, is to be converted 

to Fahrenheit and assigned to the corresponding element of 

Q. This could be done as in (18), by calling the procedure 
ntemp times with different actual parameters. 


(18) For i := 1 to ntemp do Celciustofahrenheit (P[1], 0/37) 


We thus see that by parameterizing a procedure, we make it 
more general. The next example elaborates on the use of proce- 
dures with parameters. 


Example 7.1 


We shall develop a program to print a 20 x 20 multiplication 
table. The output from the program should be in the format 
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given below. 


1 2 3 . . . 20 

1 1 2 3 . . 20 

2 2 5 6 E s б 40 

3 3 6 9 а . А 60 
2 . . : 


The overall structure of the algorithm to perform this 
task can be formulated as in (19). Here we invoke a proced- 
ure printarow with the row number as an input parameter to 


begin 
(19) for i := 1 to 20 do printarow (i) ; 


print one row of the multiplication table. It is obvious that 
if this procedure works properly, the algorithm in (19) will 
produce the desired multiplication table. 

In order to formulate this procedure, we note that 
printing the ith row implies printing numbers 1%1, i*2 and so 
on till i*20. This can be done as shown in (20). 


procedure printarow (сочпо : integer) ; 
var K integer ; 


(20) for К := 1 to 20 do write (rowno * Kj: 4) ; 
writeln 


end (* of printarow *) 


Combining (19) and (20) we get the desired program as shown 
in P? 2 


PROGRAM MULTIPLICATIONTABLE (INPUT, OUTPUT)? 
(ж THIS PROGRAM PRODUCES A MULTIPLICATION TABLE ж) 
(ж FOR NUMBERS FROM 1 TO 20 ж) 


UAR 
1: INTEGER: 
PROCEDURE PRINTAROW (ROWNO : INTEGER); 


VAR 
K + INTEGER; 
BEGIN 
FOR K := 1 TO 20 DO 
‚ WRITE (ROWNO ж к: 4); 


WRITELN 
END; (ж OF PRINTROW ж) 
BEGIN (+ PROGRAM ж) 
FOR 1 :: 1 TO 20 DO 
PRINTAROM (119; 
END. 


=, ут 


— Une TE чт, 


m 
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2 3 4 5 6 Т, в 5 49g та» 13.14 18 15. 27-18 19-,20 
4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 
6 9 12 15 18 21 24 27 30 33 36 39 42 45 48 51 54 57 60 
8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 во 
40 45 SO SS 60 65 70 75 80 85 90 95 100 

12 18 24 30 36 42 48 54 60 66 72 78 84 90 96 102 108 114 120 

14 21 28 35 42 49 56 63 70 77 84 91 98 105 112 119 126 133 140 

16 24 32 40 48 56 64 72 80 88 96 104 112 120 128 136 144 152 160 

18 27 36 45 54 63 72 81 90 ээ 108 117 126 135 144 153 162 171 180 
10 го 30 40 SO 60 70 80 90 100 110 120 130 140 150 160 170 180 190 200 
її 22 33 44 55 66 77 88 99 110 121 132 143 154 165 176 187 198 209 220 
i2 га 36 48 60 72 84 96 108 120 132 144 156 168 180 192 204 216 228 240 
13 26 39 52 65 78 91 104 117 130 143 156 169 182 195 208 221 234 247 260 
14 28 42 S6 70 84 эв 112 126 140 154 168 182 196 210 224 238 252 266 280 
15 30 45 60 75 90 105 120 135 150 165 180 195 210 225 240 255 270 285 300 
16 32 48 64 80 96 112 128 144 160 176 192 гов 224 240 256 272 288 304 320 
17 34 S1 68 85 102 119 136 153 170 187 204 221 238 255 272 289 306 323 340 
18 36 54 72 90 108 126 144 162 180 198 216 234 252 270 288 306 324 342 360 
19 38 57 76 95 114 133 152 171 190 209 228 247 266 285 304 323 342 361 380 
го 40 60 80 100 120 140 160 180 200 220 240 260 280 300 320 340 360 380 400 


OO NOOO» wO MN 
- 
о 
- 
л 
№ 
о 
№ 
a 
ш 
о 
ш 
а 


P7.2 Program for constructicn of а multiplication table 


In the procedure shown in (16), the list of formal para- 
meters is preceded by the keyword var. However, this is not 
the case with the formal parameter in printarow procedure 
in P7.2. More details about formal and actual parameters 
are given below, where this difference is also explained. 


Syatax of the Formal and Actual Parameter Lists 


A procedure may or may not have parameters, Figure 7.1 shows 
the syntax of a procedure definition. The syntax of formal 
parameter list is shown in Fig. 7.2. From Fig. 7.2, it is 
evident that formal parameters, which are denoted by identi- 
fiers, can belong to any of the following four categories: 

1. constant parameters, 

2. variable parameters, 

3. function parameters, and 

4. procedure parameters. 


parameter 
hst 


FIG. 7.1 Syntax of procedure definitions 


To which category a sequence of identifiers belongs, depends 
on the keyword which precedes them. If no keyword precedes an 
identifier list, these belong to the constant parameter cate- 
gory. We shall learn more about variable and constant para- 
meters in this section. The remaining two categories receive 
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Сте 
"i 


M I: 


type identifier 


FIC. 7.2 Syntax of a formal parameter list 


attention later in this chapter. 

The syntax of procedure calls is shown in Fig. 7.3. 
Notice that a call can be with or without any actual parame- 
ters. A procedure call without any actual parameters, corres- 
ponds to a parameterless procedure. The syntax of actual pa- 
rameter list appears in Fig. 7.4. Here again, we have four 
categories of actual parameters. Not every actual parameter 
can be used with a formal parameter. The correspondence bet- 
) ween formal and actual parameters shall be brought out in 
h this chapter. 


procedure dentifier 


FIG, 7.3 Syntax of procedure calls 
| 
= 
function identifier 


Procedure identifier 


FIG. 7.4 Syntax of an actual parameter list 
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Variable Parameters 


A procedure. performs actions on certain input values and 
produces output values. Certainly, it is possible to have а 
procedure in PASCAL of the kind 


procedure nocomputation ; 
begin 
writeln ('does no computation!) 
end; (* of nocomputation*) 


which has no parameters and which does not use any variables 
at all. However, most useful procedures will have statements 
that operate upon variables which are either global or local 
or formal parameters. 

Viewing formal parameters ав the media used for importing 
values into the procedure and exporting values (computed) to 
the calling procedure, we realize that some formal parameters 
will have their values computed inside the procedure body. 
For example, in (16) F is such a parameter. 

Such formal parameters to which values are assigned іп-// 
side the procedure body for the purpose of output to the 
calling procedure, are called variable parameters. While de- 
claring a procedure, the fact that a set of identifiers are 
variable parameters, is indicated by using the keyword var 
before listing them. In the procedure shown in (21), quotient 
and remainder are declared as variable parameters. Note that 
x and y are not variable parameters in (21). 


: integer; уат quotient, 


procedure divide (x,y 
remainder : integer) ; 


begin 
quotient := X div y ; 
remainder := x mod y 
(21) aud $^ of divide *) 


Now, if divide is invoked as 
divide (14, 5, 0, R) ; 


the values of Q and R, computed inside the procedure, would 


be 2 and 4, respectively. 

Here, 14, 5, 0 and R are the actual parameters correspon- 
ding to X, у quotient and remainder—which аге the formal 
parameters. As Q and R correspond to variable formal paramet- 
ers, these must be variables themselves. This is obvious bec- 
ause their values will be computed inside the procedure and 
therefore Q and R cannot be anything but variables. Thus, the 
following call is illegal 
(22) divide (14, 5, A, B) 


where A and B denote constant identifiers. 


pero nw "ұз 
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Ме can sow state the following rules of correspondence: 
Rule li 


An actual parameter corresponding to а varíable formal para- 
meter, must also be a variable of the same type as that of 
the formal parameter, 

Ae another example of variable parameters, consider the 
following procedure which fills an array of N integer values 
with numbers from 1 to ЕІ 


Procedure fillvithnatnumbers (N : integer ; var NAT : 
vector) ; 
1 : integer ; 
1: 1 £o N do NATÜ£ J :e 1 
end ; (4 of fillwithnatnumbers *) 


Here, vector is a type identifier (verify from Fig. 7.2 that 
4 only type identifiers can specify a type inside а list of for- 
mal parameters) defined, prior to procedure definition, as 


vector * array [1 .. 100] of integer ; 
To fill an array TEST, also of type vector, with first K 
ж 3 


ww 


natural numbers, ve can use the above procedure as 
(24) fillvithnatnusmbers (25,TEST) ; 
If ve have a varíable HUGE declared as 


HUGE : array [1 .. 1000] of record 
irstfield : integer ; 


4 TEST : vector ; 
thirdfield : real 
end ; 


we can fill all of its second fields with first 100 natural 
numbers by the following loop: 


for i := 1 to 1000 do fillvithnatnumbers(100,HUGE[1].TEST) ; 


, Notice that HUGE[i]. TEST is a variable of type vector and 
this forms a legal correspondence with the formal parameter as 
per Rule 1 stated earlier. 


Value Parameters 


In several instances, an actual parameter is used only to pass 
a value to the procedure, no output value is desired. For 
example, іп (23), 14 and 5 are the first two actual parameters 
corresponding to the formal parameters x and y. Similarly, 


Роот bad 


to (24), 25 fe the actual parameter corresponding to W, te ali 
‘hese cases, only values are being passed te the procedure fer 
зе in some computation, These values thus serve as pure inputs 
to che called procedure. 

Formal parameters which serve only te japet values from а 
procedure call, are knows as valve parameters, Їз (21) x and 
v, and in (23) M are all value perameters. The fact that these 
are value parameters 14 indicated by sot preceeding then with 
any keyword, 

A value formal parameter cam correspond to amy actual para- 
seter that possesses а value, Че саз sov state the second rule 


of correspondence as! 


Rule 21 


An actual parameter, corresponding to 4 value formal parameter, 
can be an expression, а variable or a function call yielding а 
value of the same type as that of the formal parameter. 

Thus, the following ís а valid call to procedure divide shown 


in (21): 

divide (20 div 7, 8 div 2, 9, R) 3 
divide, the expressions ia the act- 
ual parameter list are evaluated yielding J and 2 respectiv- 
ely. These values are then assigned to nener locatione corre- 
sponding to the formal parameters х acd y and then the proced- 
ure execution begíns. On completion, the values of Q and R 


vould be 1 and 0 respectively. 
Note that inside а procedure body, it is alvays possible 
to assign new values to identifiers that correspond to value 


parameters. However, let us examine the consequences of doing 
so. Consider the folloving trivial procedure 


rocedure increment (x : integer) ; 


е xt 


end ; (* of increment *) 
In (25), x is а value parameter. Nov, 
procedure às 


when ve call the above 


increment (Т); 


Where T is а variable of type integer, the procedure call 
If the value of T, prior to proce- 


will have no effect on T. 
111 тезаіп 7 on completion of the ргос- 


dure call, is 7, itv 
edure execution. If, instead, X in (25) is declared as a 
variable parameter (by appending var to it), the value of T 


vill get incremented to 8. 


жы 
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The геавст why this happens becomes obvious when we recall 
that the value supplied by an actual parameter, corresponding 
to a value parameter, is copied into an internal memory loca- 
tion and reserved for that formal parameter (x in our example). 
Thus, any modification to this formal parameter effectively 
alters the value in the internal location and does not get tr- 
ansmitted to the calling program. Therefore, the value of T, 
in our example, is copied into a location for x which is incre- 
mented to 8. However, that does not affect the value in the 
memory location assigned to Т in the calling program. 

This internal copying does not take place for variable 
parameters. Any modification to a variable parameter, inside a 
procedure, is performed directly on the location corresponding 
to the actual parameter. Thus, in the second case above, T 
gets incremented to 8. 

Note that function calls, e.g. sin(z), pred(c), abs(y), 
also yield values and can therefore serve as actual parameters 
corresponding to value of formal parameters. Consider the 
following: 


procedure ex (p,q : real) ; 
begin 
writeln (p+q, p-q) 
end ; 
A call to ex as 
ex (sin(x), cos(x)) ; 


would result in a printout of the values of (sin(x)+cos(x) ) 
and (sin(x) - cos(x) ). % 

We shall conclude this section with two examples, in Which 
the notions introduced so far are illustrated. Example 7.2 
illustrates how a complex problem can be programmed with the 
aid of procedures and stepwise solution. Example 7.3 illust- 
rates use of parameters. 


Example 7.2 


The air pollution monitoring stations normally measure the 
pollution levels once a minute. The pollution levels range 
from 0 to 1,000 parts per million (ppm) excluding 0, Levels 
beyond 100 ppm are not normal. Any values outside the range 
0-1000 ppm and the value 0 are invalid and if the data are 
valid for less than 80% of the time in an hour, we assume that 
equipment malfunction has occurred. If the pollution level is 
above 100 ppm for five consecutive minutes, it is called a 


violation. 


Pollution levels for a day, i.e. 24x60 = 1440 measurements, 
are available. We shall design a program to 
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1. compute the mean ppm values for each hour, together 
with the number of valid seasurements for whích the 
mean ís computed (see note belov), 

2. give the number of violations for each hour, and 

3. print an hourly histogram of the mean ppm values for 
the 24-hour period. 

Note that if a measurement is invalid, it should not be 
used for computing the mean. It should not also be counted 
in a violation. If equipment malfunction is detected in an 
hour, -1.0 should be output as the mean ррв value for that 
hour and 0 as the number of violations. The output must be 
a report of the form. 


Hour Violations Measurements Mean ppm Histogram 

1 0 59 10.120 хх 

2 1 54 15.062 ххх 

3 0 60 0.621 

4 A 52 30.420 XXXXXX 
5 0 40 -1.000 ------ 
6 0 59 5.126 x 
24 0 50 1.234 А 


A study of the problem as stated above brings out the 
following ambiguities: 
1. If the pollution level is more than 100 ppm for. say, 
10 minutes, should it be counted as one violation or 


two? 
2. If a violation extends into the next hour, which hour 


does it belong to? 
3. Is a polution level measurement an integer or а real 


number? 

A careful reading of the problem specification as given 
above should reveal that a violation is said to have occurred 
if the level is above 100 ppm for five consecutive minutes. 
It does not say more than five consecutive minutes nor does 
it say at least five consecutive minutes. $о, we may assume 
that after а violation has been detected the subsequent min- 
utes can be counted in the next violation. Thus, 10 minutes 
may be counted as two violations but 9 minutes must be counted 
BA “For the second question, there does not seem to be such 

We believe that it does not really matter 


answer. 
5e the violation is counted in. Let us count it іп 
the second hour. (The other approach will complicate our 


program. Can you guess why?) 


wf a vd ME adit a CoA 
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The answer to the third question can again be found by 
a careful reading. The valid range of measurements is 
0-1000 ppm, excluding 0. This implies that measurement is a 
real quantity. 

We can now begin formulating the desired program. The 
overall program structure can be formulated as shown below 


program airpollutiondatareduction (input,output) ; 
var 
ROUEN -b AAG 
begin 
(26) printheading ; 
for hour := 1 to 24 do processhourlydata 
end (* of program %) 
In (26) we have introduced two procedures: 
„ printheading to print the heading that precedes the 
numerical output along with histogram, and 
e processhourlydata to perform all tasks related to 
processing hourly pollution data as described above. 
The printheading procedure is simple to code in PASCAL. 
It is given below. Note that it needs no parameters. 


procedure printheading ; 

Nar 
1 : integer 

begin 
writeln ; 
write ('HOUR VIOLATIONS MEASUREMENTS') ; 
write (' MEANPPM HISTOGRAM ') ; 
writeln ; 
for i :- l to 58 do write ('-').; 
writeln 

end ; (* of printheading *) 


(27) 


Next, we can formulate the structure of  processhourly 
data as shown below. Notice again that this procedure needs 
no parameters—it requires nothing as input from printheading 
procedure, Its output is on paper or a display unit. 


procedure processhourlydata ; 
begin 
readandaccumulate ; 
computehourlystatistics ; 
printnextline 
end ; (* of processhourlydata *) 


(28) 


Here we have introduced three more procedures for performing 
hourly data processing. Let us code these procedures one by 
one starting with the procedure to read 60-minute data and 
accumulate. It can be formulated as in (29). 
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procedure readandaccumulate ; 
var 
minute :[1 .. 611; measurement : real ; 
begin 
initialize for accumulating measurements ; 
for minute := 1 to 60 do 
(29) begin 
read (measurement) ; 
process measurement ; 
end ; 
end ; (* of readandaccumulate *) 

We can complete (29) by introducing three variables — 
cumppm for cumulative p 
ments, and violations to denote the number of measurements 
that violate the constraint that no more than 5 measurements 
in a minute can be greater than 100. These variables can be 


initialized as 


valid :- 0 ; cumppm := 0.0; violations := 0; 


| 
| 
| The task 'process measurement' can be coded as 


3E (measurement 0.0) and (measurement < 1000.0) then 
begin 


| valid := valid + 1; 
(30) cumppm :- cumppm * measurement ; 
processviolations 2 
епа ; 
tions in (30) сап be coded by introdu- 
s a count of the number of 
00. If this count exceeds 
We can now write process- 


The task processviola 
cing a variable exceedmin which i 
times measurement is greater than 1 
5, violations is incremented by l. 
violations as in (31). 


procedure processviolations ; 


begin 
if measurement » 100.0 then 


A. begin 
exceedmin := exceedmin + qu 


if exceedmin - 5 then 


begin 
violations := violations + ls 


exceedmin := 0 
end ; 


(31) 


en 


else 
exceedmin := 0; 
end ; (* of processviolations *) 


-—— 


pm, valid for number of valid measure- 


М 2-21. 


E 


лы жам 
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We have thus completed writing the procedure readand- 
accumulate formulated in (29). 

Reexamining (28), we now move to the next procedure- 
computehourlystatistics. Thís procedure computes mean using 
the cumulative ppm computed by readandaccumulate procedure. 
The mean value is set to -1 if less than 802 of readings 
were valid. Putting all this together, we get the desired 
procedure as in (32). 


procedure computehourlystatistics ; 
begin 
if valid « 48 then 
begin 
mean :* -1,0 ; 
(32) violations := 0 
еп 
else 
mean := cumppm/valid ; 
end ; (* of computehourlystatistics *) 


Finally, the procedure to print the next line of report 
can be written using the values of hour, violations, valid 
and mean. The desired procedure appears in (33). 


procedure printnextline ; 


уат 
1 : integer ; 

begin 
write (hour : 3, violations : 8, valid : 12, 

mean %213:3:- ' (75 352); 
if mean > 0 then 
(33) for i := 1 to round (mean/5) do write ('X') 
else 
for i := 1 to 20 do write (' - ') ; 

writeln 


end ; (* of printnextline *) 


Notice how the histogram has been printed in (33). For every 
5 units of mean, one 'X' is printed in the output. However, 
if mean is 0, 20 dashes are printed out. 

Combining (26)-(33), we get the desired PASCAL program 
as shown in P7.3. [] 


PROGRAM AIRPOLLUTIONDATAREDUCTION (INPUT + OUTPUT) 
VAR 
HOUR : 1..25; 
PROCEDURE PRINTHEARDING; 


VAR 
I : INTEGER; 
BEGIN 
WRITELN; 
WRITE (HOUR VIOLATION MEASUREMENT ^2; 
WRITE ('MEAN PPM HISTOGRAM’) 


C rere UT. 


ee ee ee FET 


WRITELN? 
FOR I t= 1 TO $8 DO WRITE (=)? | 
MRITELN . 
END) (е OF PRINTHEADING ©) 
PROCEDURE PROCESSHOURLYDATA: 
VAR 
VALID, VIOLATIONS : INTEGER: 
EXCEEDMIM 1 0..9: 
MEAN = REAL? 
CUMPPM : REAL? 
PROCEDURE READANDACCUNULATE: 
var 
MINUTE : 1..61; 
MEASUREMENT : REAL? 
PROCEDURE PROCESSVIOLATIONS! 
BEGIN 
IF MEASUREMENT > 100.0 
THEN 
BEGIN l 
EXCEEDMIN :: EXCEEDMIN + 1) 
IF EXCEEDMIN : 5 
THEN 
BEGIN 
VIOLATIONS :: VIOLATIONS + 1! 
EXCEEDMIN i= O 
END? 


Г геч 


END 


ELSE 
EXCEEDMIN += 0; 
END; (ж ОҒ PROCESSVIOLATIONS *) 
BEGIN (ж START OF READANDACCUMULATE *) 
UALID := O;CUMPPM :: 0.07 VIOLATIONS += 0; 
EXCEEDMIN :: OF 
WRITELN('ENTER HOURLY MEASUREMENTS ° 
FOR MINUTE :: 1 70 60 DO 
BEGIN 
READ (MEASUREMENT): 
IF (MEASUREMENT > 0.0) AND (MEASUREMENT < 1000.0) 
THEN 
BEGIN 
VALID := VALID + 1; 
CUMPPM := CUMPPM + MEASUREMENT; 
PROCESSUIOLAT IONS: : 
END | 
END; (ж OF FOR *) 
END; (ж OF READANDACCUMULATE *) 1 
PROCEDURE COMPUTEHOURLYSTATISTICS ; 
BEGIN 
IF VALID < 48 
THEN А 
BEGIN 
MEAN :: -1.0; 
VIOLATIONS :: O 
END 
ELSE 
MEAN += CUMPPMAZURLID: 
END; (ж OF COMPUTEHOURLYSTATISTICS ж) 
PROCEDURE PRINTNEXTLINE ; ; 
VAR | 
1 : INTEGER ; ы 
BEGIN 
WRITE (HOUR: 3-VIOLATIONS:4, VALID:12,MEAN: 13:3,” ” :2); 
IF MEAN > O TH 
THEN 


= 


лаада 
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FOR I t= 1 TO ROUND (MEAN/S) DO WRITE (*X*) 
ELSE 
FOR I t= 1 TO 20 DO WRITE С”'-/,); 
WRITELN 
END; (ж OF PRINTNEXTLINE ©) 
BEGIN (е OF PROCEDURE PROCESSHOURLYDATA +) 
RERDANDACCUMULATE i 
COMPUTEHOURL YSTATISTICS: 
PRINTNEXTLINE? 
END; с» OF PROCESSHOURLYDATA ж» 
BEGIN (e MAIN PROGRAM ж) 
PRINTHEADING:; 
FOR HOUR :: 1 TO 24 DO PROCESSHOURL Y DATA 
END. (ж OF PROGRAM «> 


P7.3 Program for air polluticn data reduction 


Example 7.3 


In many engineering and scientifc problems, one needs to 
perform arithmetic with complex numbers. This example ill- 
ustrates how a set of procedures can be developed and used 
for the three arithmetic operations on complex numbers 
(division of one complex number by another is left as an 
exercise). L 

We shall write a program to multiply two matrices each 
of which has complex valued elements. Given А and B as two 
matrices of order M x N and N x L, respectively, we can 
form their product, to get another matrix C, by using the 
relation N 


Са) m Xt A ,k) * B. ХЫ АО 
к=] 


Each element of С can be computed using the above relation. 
The overall structure of the desired program can be 
formulated as in (34). 


program complexmatrixmultiply (input, output) ; 
const 
М = 10 
М = 10 
L = 10 
МАХ = 15 
type 
complex = record 
re, im : real 
cmatrix = array [1 .. MAX, 1 .. MAX] of complex ; 
var 
А, B, C s>cmatrix ; 
begin (* complex matrix multiplication *) 
readcmatrix (M, N, A) ; readcmatrix (N, L, B) 
ES multiply A and B to get C ; 
printcmatrix (M, L, C) 
end (* of program *) 


we ow we ve 


‘toh ba 
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In (34), we have introduced two procedures—readcmatrix 
and printematrix for reading and printing, respectively, a 
matrix with complex elements. These procedures can be easily 
written in PASCAL, using the standard input/output statem- 
ents, as shown in (35) and (36). 

procedure readcmatrix (nrow, ncol : integer ; var 


уат P : cmatrix) ; 
1,4221. MAX ; 
begin 
(35) for i := 1 to nrow do 
for j := 1 to ncol do read (Р ЛЕТ” 


Жу, NT 


end ; (% of readcmatrix *) 


procedure printcmatrix (nrow, ncol : integer ; Р : cmatrix) ; 

var 
r e a e 9. НАС 
begin 

(* Each element is printed in the form atbi *) 

(* One row is printed per line, assuming that there 

are just enough elements to fit in one line *) 
or i := 1 to nrow do 


begin 
for j := l to ncol do 
begin 
(36) with P [i,j] do write (re:10:2,'+', 


im:10:2,'1') ; 


end ; 
end ; (* of printcmatrix *) 


Looking back at (34), we now begin coding the task 
multiply А and B to get C'. Assuming that we have the pro- 
cedures 
e settozero for setting а complex variable to 0, 
e cadd for adding two complex numbers, and 
„ cmult for multiplying two complex numbers 
We can formulate this task as shown in (37) 


for i := 1 to M do 
ed Re D do 


rh 
o 

ч 
-- 


settozero (sum) ; 
(37) for k := 1 to N do 
begin 
zal ijklj B k155).4 


cadd (sum,t, sum 
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Here sum and t are also of type complex. Putting (35), (36) 
and (37) into (34) along with the definitions of procedures 
settozero, cadd and cmult, we get P7.4 for matrix multipli- 
cation.[] 


PROGRAM COMPLEXMATRIXMULTIPLY (INPUT, OUTPUT)? 


(ж THIS PROGRAM TAKES TWO CMPLEX VALUED MATRICES AS x) 
(ж INPUT AND PRODUCES THEIR PRODUCT AS THE OUTPUT ж) 


CONST 
М-2; М=2; 1:2; МАХ-15; 
TYPE 
COMPLEX = RECORD БЕ,ІМ : REAL END; 
CMATRIX = ARRAY [1..MAX,1..MAX] OF COMPLEX; 
VAR 
А,В,С : CMATRIX; 
T SUM : COMPLEX; 
І,Ј,К : INTEGER; 
PROCEDURE READCMATRIX (NROM.NCOL : INTEGER? UAR P : CMATRIX); 
VAR 
1,1: 1..Мах; 
BEGIN 


FOR I :- 1 TO NROW DO 

FOR J :- 1 TO NCOL DO 2 

READ «РСІ,71.БЕ,РГІ,71.1Мм9; 
END: (ж OF READCMATRIX ж) v 
PROCEDURE PRINTCMATRIX (МЕОИ, НСО. : INTEGER;P : CMATRIX); 


VAR 
I,J : 1.. MAX} 
BEGIN 
(ж EACH ELEMENT DF P IS PRINTED IN THE FORM A+BI ж) ғ 
(ж ONE ROW IS PRINTED PER LINE ASSUMING THAT THERE ж) 


(ж ARE JUST ENOUGH ELEMENTS TO FIT IN ONE LINE ж». 
FOR I := 1 TO NROW DO 
BEGIN % 
FOR J :- 1 TO NCOL DO 


BEGIN 
WITH РГІ,71 DO 
WRITE «RE : 6 : 2,'*':4,IM :6 : 2," i^," *':2); 
END; 
MRITELN; 


END; 
END) (ж ОҒ PRINTCMATRIX жә 
PROCEDURE SETTOZERO (UAR X : COMPLEX): 
BEGIN 
Х.БЕ i= 0.0; 
X, IM t= 0.0 
END; (ж OF SETTOZERO *) , 
PROCEDURE CADD (X,Y : COMPLEX: UAR Z : COMPLEX); 
BEGIN 
Z.RE t= X.RE + Y.RE; 
Z.IM t= X.IM + Y.IM 
END; (ж OF CADD ж) 
PROCEDURE CMULT (X,Y :COMPLEX; UAR Z : COMPLEX); 
- BEGIN 
Z.RE t= X.RE*Y.RE - X.IM*Y.IM; 
i Z.IM t= X.IM*Y.RE + X.RE*Y. IM 
END) (ж ОҒ CMULT ж) 
BEGIN (* MAIN PROGRAM +) 
WRETELNC ENTER ELEMENTS OF FIRST MATRIX 79; 
READCMATRIX (м,н, 60; 
WRITELN ENTER ELEMENTS OF THE SECOND MATRIX '); 
READCMATRIX (NLB); ; 
.. (ж MULTIPLY THE THO MATRICES ж) 
М FOR I :: 1 TO M DO 
2 FOR J :: 1 TOL bo 
BEGIN j 


ау 


а нҮ а засы 


мы, '" — Rami Сады аба ag жб” ым 
kú 5 - Ба е, жал» жез фа, а ҰЯ. ee аа т» TCE 
уа f К 
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SETTOZERO (SUM); i 
FOR к := 1 TO м DO - 
BEGIN 


CMULT (ALI KJ ВСК, Ј2, T); 
сарр (SUM, T. SUM) 
END? 
C CIJ] := SUM 
END; (ж ОҒ MULTIPLICTION ж) 


Uo Жа 


(ж PRODUCT MATRIX ж) 
WRITELN( PRODUCT MATRIX’ :20); 
PRINTCMATRIX (M,N,C) 

END. (ж OF PROGRAM ж? 


À мам ze 


ENTER ELEMENTS OF FIRST MATRIX 
1 25. Bees 2 
ENTER ELEMENTS OF THE SECOND MATRIX 
997,24 45 6 т 
PRODUCT MATRIX , ‚ 
-8.00 %4%9.00: -13.00 + 29.00i 
2.00 + 31.00i 2.00 + 47.00i 


EIS 2а Т ТГ Ус 


P7.4 Program to multiply two matrices with complex valued elements 


7.4 FUNCTIONS 


In earlier chapters, we have seen how functions like abs, pred, 
sin, cos can be used while writing PASCAL programs. These, and 
several others mentioned in Chapter 3 are known as predefined 
or built-in functions provided by PASCAL. However, the facility 
to define new functions ís essential while writing non-trivial 
programs. Just the way we could associate procedures with iden- 
tifiers, we can also associate functions with identifiers. 

Let us look at a few sample function definitions given in 


the following examples. 


Example 7.4 (Maximum of two integers) 


We shall write a function to determine the maximum of two inte- E 

gers. Denoting the function by max, it can be written as shown Du 

below. 3 

function max (x, y : integer) : integer ; * 

begin 1 

if x < y then пах := y else max := X ; E 

end ; (* of max *) E 

The above function can be used in a variety of ways. ў 

Тһе statement 1 

Р := max (a, b) ; % 

computes the maximum of a and b and assigns the result to P. 3 
To compute the maximum of (a+b) and a*b, we can use the state- 

ment 
Z := max (atb, a*b) ; 
E 
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To find the maximum of three numbers denoted by variables a, b 
and c, we can write 


R := max (max (a,b), с); O 


Example 7.5 (Logarithm to base 10) 


A function to compute the logarithm of a number to base 10 is 
not offered by PASCAL. We can easily define a function for 
this by using the natural logarithm function. This definition 
is given below. 


function log (x : real) : real ; 
begin 
log := 1n(x)/1n(10.0) 
end ; (* of log * ) 


Once log is defined as above, it can be used in expressions 
just as 1n is used. Here are a few examples: 


: log (452.) ; 

:= log (b) ; 

log (atb) ; 

:= log (b)*2.0 ; 

:= log (1n(a)) Г] 


NO KOM 
. 
" 


Exemple 7.6 (Raising x to power y) 


A function to compute x! for real values х and y сап be defined 
as follows: 


function power (x,y : real) : real ; 
begin и 
power := exp (у%1пһ(х)) 
end ; (% of power %) 


Now, to compute ab, we can yee power (a,b), for b? we can write 


power (b,a), and for (ptq)*/S we can use this function as 
power (ptq, r/s). 

Let us examine in detail the function definitions given in 
the above examples. The first line is the function header 
which serves to state the fact that a function is being defined. 
The header begins with the keyword function, followed by the 
function name, formal parameter list and lastly the function 


type. Figure 7.5 shows the complete syntax of a function defin- 


ition, Except for the header, the definition is identical to 
that of a procedure. 

When a function is called, by using its name along with 
actual parameters inside an expression, the function body ig 


executed and the result returned in the identifier which is the 


шаһ ——— CU و‎ 


Ы 
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name of the function. The type of the value returned 18 the 
same as the type of the function specifíed in the function 
header. 

A function can only return a value belonging to a scalar 
type—or unstructured type. Thus, for example, we cannot write 
a function that returns a complex value as ай output. 

The correspondence rules for parameters іп а function call 
are identical to those stated earlier during the discussion оп 
procedures, The scope rules and block structure also remain 
the same. 

When a function is called, the actual parameters are eval- 
uated, and then only the body is executed (just as with proce- 
dures). However, unlike with procedures, the name of a function 
serves as a variable of a type specified in the function header. 
This variable carries the value of the function to the calling 
program, For example, owing to the call max (5,6), function max 
as defined in Example 7.4 is executed returning the value 6 as 
that of variable max. For this reason, at least one statement 
in the function body must assign a value to the function name. 

" "The name of the function is treated as global to the fun- 
ction itself, but local to the block in which the function is 
defined, 

It should be evident that a function that returns à result 
of type boolean can be used in any condition. For example, con- 
sider the following definition of a function which searches for 
an integer X іп an integer array of N integers. 


function search (N,X : integer ; А: vector) : boolean ; 
var 


1 : integer ; 
begin ` 
search := false ; i := 1; 
while (not search) and i < N do 
begin 


end ; 
end ; (* of search *) 
The above function can be used, for ‘example, as in the foll- 
owing statement: 


if search (20,195,P) then 
72 write (' 195 exists in P') 


else 
write (' 195 does not exist in B's 


Notice that the formal 
ition is of type vector which is assumed to be defined earlier. 


Recall that the type of a formal parameter can be specified 
only by a type identifier. Therefore, the following function 


if Х = A [i] then search := true else i := 1+1; 


parameter A in the above function defin- 


E 


es! түгү mi ^ LAUS 
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header is incorrect: 


function search (N,X : integer ; А : array [1 .. 100]of 
integer) : boolean ; 


Example 7.7 


Data about the grades obtained by each student in a class are 
given. Each student registered for 5 courses and was awarded 
one of the five letter grades—A, B, C, D and E. With each 
letter grade, points are associated as 


A 10 
B 8 
C 6 
D 4 
E 2 


Each course has a credit value associated with it. 
The grade point average, denoted by GPA, of a student 
can be computed using the formula 


5 
Ni PASE 
СРА = i= 1 
i 
с 
i=l і 


where Py denotes the points corresponding to the grade obtain- 
ed by the student in the ith course and сі is the credit value 


of that course. To illustrate, suppose that a student has sec- 
ured the following grades: 


Grade Course Credits 
B 1 2 
с 2 2 
А 3 4 
B 4 4 
B 5 4 


Then hís GPA can be computed as 
СРА = 2x8 + 2x6 + 4x10 + 4x8 + 4x8 _ 8.22 
2+ 2 + 4 + 4 + 4 


A program to read all the data, compute the GPA of each 


student and print it out, together with the name of the student, 


can be formulated as shown below. 
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begin 
print heading ; 


initialize credit and point data ; 
for i := 1 to number of students do 
begin 
read data about next student ; 
compute GPA ; 
print data about student and GPA ; 
end ; 
end 


The task 'print heading' can be coded as a procedure given 
below 


procedure printheading ; 
procedure spaces (n : integer) ; 
var i: integer j 


begin 
for і := 1 to n do write ( ' en t 
end ; (* of spaces * 
procedure underline (n : integer) ; 


var i : integer ; 


begin 
for ісін 1 to ndo WELE (C ғ M) 5 
end ; (* of underline *) 


begin (* printheading *) 

spaces (40) ; 

write (' PERFORMANCE OF STUDENTS') ; writeln ; 

underline (24) ; writeln ; writeln ('NAME GRADES GPA') ; 
end ; (* of printheading ) 


Data for each student can be read in a variable SDATA 
declared as 
SDATA : student ; 
The type student can be defined as 


student ; record 
name : packed array [1 .. 40] of char ; 
grades : array 4. 5] ef grade ; 
end ; 
The type grade can be defined as 
grade = ТА" ,. 'E* 4 
We can now formulate a procedure to read data about one 
student as given below. 


procedure readdata ; 
var 1 : integer ; 
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begin d 
with SDATA do ( 
Һеріп | 
for i := 1 to 40 do read (name [i] ; 
for i :- 1 to 5 do read (grades [1] ; 1 
end ; Е 

end ; (* of readdata *) 

Points and credits can be initialized using arrays POINTS 
and CREDITS declared as 


POINTS : array (['A' .. 'E'] of integer ; 
CREDITS: array [1 .. 5] of integer ; i 


The initialization can be done as | 


POINTS['A'] := 10 ; PomnTsL'B'] : 
POINTS['C'] := 6 ; POINTS['D'] : 
POINTS('E'] := 2 
CREDITS(1 ] := 2 
CREDITS(3 ] := 4 
CREDITS[5 1 := 4 
totalcredit := 0; 

for i := 1 to ncourse do totalcredit := totalcredit+CREDITS [1]; | 


+ о 
wee 


CREDITSL2] := 
CREDITS[4] := 


we we 


fn 


w^ we ws v^ ve ме 


A function to calculate the GPA of a student can be defined 
using the two arrays POINTS and CREDITS declared earlier, 


function GPA : real ; 
begin 
numerator := 0 ; 
for i := 1 to ncourse do 
numerator := numerator+CREDITS[i]*POINTS grades[i] ; 
GPA := numerator/total credit ; | 
end ; (% of GPA *) | 


A procedure to print data about one student can also be easi- 
ly written. Combining all the procedures and functions written 
above, we get the final version of the desired program as shown 
in P7.5. An exercise at the end of this chapter asks for an addi- 
tional procedure for generating a hístogram from the computed 
GPA values. (| | 
| 


PROGRAM PERFORMANCEPRINT (INPUT, OUTPUT): 
(ж THIS PROGRAM PRINTS OUT THE PERFORMANCE OF ж) 
(ж STUDENTS IN A COURSE ж) 


CONST 
NSTUD = 5; 
NCOURSE : 5; 
NAMELENs 107 


4 ТҮРЕ 
GRADE = 'A'.."E': 
STUDENT = RECORD 
[ NAME : ARRAY [1..NAMELENJ OF CHAR; 


GRADES : ARRAY (C1..NCOURSEJ OF GRADE 
END: 
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VAR 
SDATA : STUDENT? 
POINTS : ARRAY ['A'..'E'J OF INTEGER; 
CREDITS : ARRAY C(1..NCOURSEJ OF INTEGER; 
TOTALCREDIT : INTEGER: ТОРА : REAL; 
І : INTEGER; 
PROCEDURE SPACES (N:INTEGER); 
VAR 
I : INTEGER} 
BEGIN 
FOR I += 1 TO N DO WRITE ' "); 
END; (ж OF SPACES ж) 
PROCEDURE PRINTHEADING: 
PROCEDURE UNDERLINE (N:INTEGER); 


VAR 
I : INTEGER; 
BEGIN 
FOR I t= 1 TO N DO WRITE (7-70; 


END; (ж ОР UNDERLINE *) 
BEGIN (ж PRINTHEADING ж) 
SPACES (20); 
WRITE ('PERFORMANCE OF STUDENTS); 
WRITELN; SPACES (20); 
UNDERLINE (24); WRITELN} 
WRITELN (^ NAME GRADES GPA e 
WRITELN? 
END; (ж ОҒ PRINTHEADING *) 
PROCEDURE ВЕАРрОАТА; 
VAR 
I INTEGERS 
BEGIN 
WITH SDATA DO 
BEGIN 
WRITEC^NAME PLEASE : 70; 
FOR I := 1 TO NAMELEN DO READ (NAMELIJ); 
WRITELN; 
WRITE (GRADES PLEASE : '); 
FOR I += 1 TO 5 DO READ (GRADESL I2); 
WRITELN? 
END; 
END; (ж OF READDATA ж) 
PROCEDURE PRINTDATA:; 
UAR 
J : INTEGER; 


BEGIN 
WITH SDATA DO 
BEGIN 
FoR J :s 1 TO NAMELEN DO 
WRITE (NAMECJ3); SPACES (5); 
FOR J i= 1 TO 5 DO WRITE (GRADESC J1)? 
SPACES (5); WRITE (ТОРА); WRITELN 
WRITELN 
END; 


END; (ж OF PRINTDATA ж) 
FUNCTION GPA : REAL; 
UAR I : INTEGER? 
NUMERATOR : INTEGER? 
BEGIN 
NUMERATOR = OF 
WITH SDATA DO 


BEGIN 
FOR I :: 1 TO NCOURSE DO 


NUMERATOR `= NUMERATOR*CREDITSCIJ ж POINTSCGRADESC 111 


END; 
GPA ‘= NUMERATOR/TOTALCREDIT? 
END; (е OF GPA ж) 
BEGIN (* MAIN PROGRAM *) 
(ж INITIALIZE POINTS AND CREDIT *) 


or.) я 
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POINTS (*A*) t= 103POINTS (^B*) Ts 9; 
POINTS (*C*3 :з 6:;POINTS (*D*] z= ai 


POINTS (*E*) :z*'2) 

CREDITS Ci} t= Z)CREDITS (2) i» 2; 
CREDITS C3) t= 4:CREDITS (4] iz 4; 
CREDITS 15) t= 4;CREDITS (5) := 4; 


TOTALCREDIT :- о; 
FOR I :: 1 TO NCOURSE DO 


TOTALCREDIT :- TOTALCREDIT + CREDITS (12; 
PRINTHEADING: 
FOR I :: 1 TO NSTUD ро 
BEGIN 
READDATA: 
ТОРА :: GPA: 
PRINTDATA 
END; 
END. (ж OF PROGRAM «) 


P7.5 Program to compute and print GPA of students 
Side Effects 


A function, as we have seen earlier, is invoked by using it 
inside an expression. As the name—function— implies, it should 
do nothing more than mapping a set of input values (passed to 
the function through actual parameters) to one output value— 
of any unstructured type. However, the way functions саф be 
defined in PASCAL, permits it to do several other things. 

We know that a global variable сап be used inside a funct- 
ion. It is therefore possible for a function to modify the 
value of a global variable. Thus, when such a function 16 
called, it will not only return a result in its name, but also 
modify a global variable. { 

Such а modification of the values of one or norê global 
variables is known as side effect. Side effects should better 
be avoided in a program because of at least two reasons—first, 
they impair the program readability, and second, they increase 
the chances of bugs in a program. As an example, consider the 
following function definition 


function abnormal (a,b : real) : real ; 


begin ; 
* if a < b then 
begin 


abnormal := a*b ; 
x := a/b 


abnormal := a/b ; 
x t= a*b 
| end ; 
e ; (* of abnormal *) 


Here x is a global variable of type real. Now, suppose we call 
the above function as 


М abnormal (18.0, 7,0) 


E] 
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Though on a first look the above assignment statement appears 
to compute a new value for Z, However, a closer look inside 
the function reveals that apart from returning a value, abnor- 


mal also modifies the value of x. 
Aninteresting situation arises, when the following state- 


ments are executed 


x t= 5.0; 

writeln (x, abnormal (18.0, 6.0), x ) 3 
The output in this case would consist of values 5.0, 3.0 and 
54.0 and not 5.0, 3.0, 5.0 as one may guess after looking at 
the vriteln statement. 


7.5 PROCEDURES AND FUNCTIONS AS PARAMETERS 


As shown in Fig. 7.2, ít is possible to use procedures and 
-ameters. Consider the following function 


integer; x, y : integer) : 
integer ; 


of minmax *) 
Now, if we invoke minmax as in 

P := minmax (min, a, b) ; 
the value returned by minmax will be the minimum of a and b. У 
Here, we have passed the function паше--піп--ав the actual 
parameter corresponding to the formal parameter f. Obviously, 
min must be a defined function in the program. Assuming that 
a function max exists, we can invoke minmax as 


Q :- minmax (max, x, y) 


to get the maximum of x and y. 
As an example of procedures as parameters, consider the 


following definition of a procedure which prints the heading 


and np өс” 
|| proce ure printanddecorat2 (procedure decorate) ; 
begin 


decorate ; 
writeln (' STOCK TABLE ') ; 


decorate 
end ; 
Now, suppose that we have two procedures—decoratewithstar 
and decoratewithdollar, we can invoke the above procedure as 


ae a NT AO» aes Абақ 0 5 فو‎ 
af il a T r ak ТИКЧҮ ide т Ww evry areas iw sS 


printanddecorate (decoratewithstar) ; 
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or as 
printanddecorate (decoratewithdollar) ; 


In the first case, during the execution of printanddecorate 
procedure, the two calls to decorate will correspond to calls 
to decoratewithstar—the actual parameter. Similarly, in the 
second case, the actual parameter—decoratewithdollar—will be 
used for decorate. 

We can now state the third rule of parameter correspondence: 


Rule 3: 


A formal parameter of type procedure or function can only corr- 
espond to an actual parameter of the same type. In case of a 
formal parameter that is a function, the actual parameter must 
be a function of the same result type. 


Example 7.8 ж 74 а а 


Finding the roots of a function is а commonly éncountered р 
lem, Іп Chapter 5, че had introduced one method of locating a 
root of a function. Here, we shall write a PASCAL function to 
Solve the same problem using the famous Newton's method. 

Given a function f(x), Newton's method can be used for esti- 
mating a root of this function with the help of the iterative 
formula 


fx.) 
Sa4 Кы ы E HE $ 
Here, хын denotes the new estimate of the root, Xn the previ- 
ous estimate and £'(x.) is the derivative of f(x) evaluated at ха. 


The iterative procedure begins with an initial estimate of 
the root хо. Successive approximations хі, х, ... are computed 


using the above formula. The process terminates when the most 
recently computed estimate say, Xi satisfies the condition 


| f(x,) 1 < е 


where є is a small predefined constant, 


To illustrate the procedure described above, consider the 
function 


f (x) = x^- 2,0 


é 
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Assuming Xo = 1.0, we get the next two estimates as 1.5 and 


1.41666, 7 
We сап easily write a function embodying the Newton's 
method as follows: 


function root (function f, fd : real ; epsilon, initial : 
real) : real ; 


begin а 
root := initial ; : 4 af 
while abs (f(root)) > epsilon do E 

begin 
root := root - f(root)/fd(root) у 
end ; 


end ; (% of root *) 


Here we have assumed that the function f of which a root 
is to be estimated, and its derivative fd, are passed as para- 
meters. Thus, if it is desired to estimate a root of the 
function 
f(x) =x”? - 5x + 6 
we can write a PASCAL program as shown in P7.6. 

If function root is to be used for estimating a root of 
some other function, only the definition of g and its deriva- 
tive needs be altered, 

Newton's» method has several pitfalls which could lead to 
an infinite loop inside function root, The exercises at the 3 
end asks for various modifications in the algorithm presented f 
here. (0 


PROGRAM NEWTONSMETHOD (INPUT, OUTPUT); 


(* THIS PROGRAM ESTIMATES THE ROOT DF ан жо 
(* EQUATION BY NEWTON’S METHOD ж) 


CONST 

EPSILON = 1.0E-4; 
VAR 

INITIALESTIMATE : REAL? 
FUNCTION G(X:REALO : REAL; 
BEGIN 


G is XX = S.0* X + 6 
END; (ж OF б ж) 
FUNCTION DERIUATIUEOFG (X:REALO : REAL ; 


BEGIN 


DERIUATIEFG :: 2.0 ж X - 5.0 h 
END; (ж OF DERIUATIUEFG ж) 
FUNCTION ROOT (FUNCTION F,FD:REAL; EPSILON, INITIAL:REALO; : 
BEGIN 


ROOT :: INITIAL; 

WHILE ABS (F(ROOT))>EPSILON DO E 
BEGIN 

ROOT :: ROOT - F (ROOT) ZFD (ROOT) 
END? 
END: (ж OF ROOT ж) 
BEGIN (ж MAIN PROGRAM ж) 

READ CINNITIALESTIMATE)? 

WRITE ('ONE ROOT OF GIVEN FUNCTION IS’); 

WRITE (ROOT CG, DERTUATIVEOFG, EPSILON, INITIALESTIMATE): 10:4); 


WRITELN? 
END. (ж OF PROGRAM ж) 


P7.6 Program to estimate one root of a function using Newton's method 


реа 
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Restrictions on Procedure and Function Parameters 


When a procedure or a function is invoked, we know that the 
actual and formal parameters must match in accordance with 

the correspondence rules stated earlier. If a programmer 

fails to comply with these rules, the PASCAL compiler reports 
appropriate error and the program is not executed, Thus, a 
programmer is protected against such errors made inadvertently 
(note that compilers for many other languages, e.g. FORTRAN, 
do not guarantee such protection), 

However, when a procedure or function name is passed as a 
Parameter, it is not easy for such verification to be done by 
the compiler, Thus, many PASCAL compilers will leave any err- 
ors in parameter correspondence undetected for procedure and 
function parameters. 

Further, the programmer needs to exercise caution in modi- 
fying global variables using procedures and functions passed 
as parameters. PASCAL does not permit procedures with variable 
Parameters to be passed as actual parameters. 


7.6 RECURSION 


Many of us are familiar with recursive definitions of some 
mathematical functions. The notable characteristic of such def- 
initions is the use of the function being defined 1п the 
definition itself, A few examples of such definitions appear 
below. 
1. The factorial of an integer М is defined as 
N != 1 1f N= 0 
= N (N-1) ! if N »0 
2, The Fibonacci numbers are defined as 
F(0) = 0, Ғ(1) = 1, 4 
F(N) = F(N-1) + F(N-2) for М » 1 


It 1s possible to code these definitions into PASCAL, The 
PASCAL functions factorial and Fibonacci given below compute 
respectively the factorial of N (N > 0) and the Nth Fibonnaci 
number 


function factoríal (N : integer) : integer ; 


begin 
if N = 0 then factorial := 1 
else 
factorial := N * factorial (N-1) 
end ; (* of factorial *) 


a 
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function Fibonacci (N : integer) : integer ; 


begin 
if М = 0 then Fibonacci := 0 
else 
if N = 1 then Fibonacci := 1 


eise 
Fibonacci := Fibonacci(N-1) * 
Fibonacci(N-2) : 
end ; (* Fibonacci *) 


Both the PASCAL functions defined above are said to be 
recursive functions. These functions are recursive because 
they are invoked inside the body of the definition itself. 

Just as we define recursive functions, recursive proced- 
ures can also be defined. Civen below is a recursive proced- 
ure that takes a positive integer as input and prints its dig- 
its in reverse order. 

procedure reverse (num : integer) ; 


begin 
if num « 10 then write (num) 
else 
begin 


write (num mod 10) ; 
reverse (num div 10) 
end ; 


; 
end ; (% of reverse *) 


To understand how the above procedure works, consider the call 
reverse (192) ; 


This call triggers the execution of reverse with num being 192. 
As num is not less than 10, the procedure first prints num mod 
10, which is 2. After printing this digit, the procedure invo- 
kes reverse. Remember that this is the second call to reverse — 
the first call has not yet terminated. 

During the execution of reverse, as a result of the sec- 
ond call, the value of num is 192 div 10 which is 19. As it is 
greater than 10, once more num mod 10 is printed. This time the 
value printed is 9. Next, reverse is invoked once more—the th- 
ird time without the second and first calls having terminated. 

This time, the third time, num is Ll (*19 div 10). As this 
value is less than 10, it is printed as it is and the procedure 
terminates. This termination corresponds to the latest call 
(the third one). Thus, execution resumes from the point immed- 
{ately following the call—this is inside the procedure itself. 
As there is no statement inside the procedure following the call 
to reverse, the procedure terminates once поге-- this time corr- 
esponding to the second call. Ав the second call had also origi- 
nated inside the procedure itself, execution resumes immediately 
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following the call to reverse. Again, as there are no more sta- 
tements to be executed, the procedure terminates—for the third 
time—corresponding to the first call. Now, and finally, it re- 
turns to the program from where it was first invoked. 

By now, the numbers printed are 


2 921. 
the reverse of the digit sequence in the input number 192, 


Looking for Recursion 


It is not always easy to determine whether a recursive or an 
iterative procedure should be used for programming a given 
problem. It is ultimately experience which helps one to take 
this decision. However, how one can proceed to answer this ques- 
tion can be explained using a few examples. 

Some functions are often defined recursively— factorial and 
Fibonacci numbers are two examples of such definition. In such 
cases, one faces the question of whether to use a recursive or 
an iterative definition. We shall give more thought to this 
question towards the end of this section. 

Tasks which are not so well defined as factorial, require 
more thought 1Ғ one is looking for recursion. For example, the 
Procedure to reverse a given number can also be written by 
using a simple loop which extracts all the digits of the given 
mumber and then prints them in reverse order. The procedure 
given below performs the task iteratively. 


procedure iterativereverse (num : integer) ; 


begin 
while num’ > 10 do 


begin 
write (num mod 10 
num := num div 10 
end ; 


end (num); (* of iterativereverse *) 


Jà 


However, one can look at the reverse operation from a diff- 
erent perspective. Given a number denoted by N, it is obvious 
that if N has only one digit (N < 10), it can be printed as it 
is to give the desired result (the reversed number). If N is 
not a single digit number, then it can be written as 


М = ni п, wee Mm 
where ni» No» ..., пу аге the digits of М. We can rewrite М as 
N= (ni (... p-2 ) ,,1) т, 
For example, if М = 192, we can write it as 
N= (1(9(2) 
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The number inside the outermost parenthesis is the one which 
needs to be reversed after the last digit has been printed. 
Thus, for 192, after 2 has been printed, 19 remains to be rev- 
ersed. 

The remaining number can be reversed using exactly the 
same procedure as described above. In other words, if the rem- 
aining number is only one digit long, it can be printed as it 
is, otherwise we can print its last digit and then reverse the 
remaining number. These considerations lead to the recursive 
procedure mentioned earlier. 

Another way of looking at the reversal problem, and a sim- 
pler one, is to note that the reverse of a given number is the 
number itself, if it is less than 10. If this is not so, then 
the reverse consists of the last digit of the number followed 
by the reverse of the remaining digits. This logic also leads 
to the recursive procedure defined above. 

Certain problems can be programmed easily if one tries to 
find a recursive rather than an iterative solution. An example 
of such a problem is the famous 'towers of Hanoi'. The problem 
can be explained as follows, with reference to Fig 7.6. 


peg А peg B peg C 


FIG. 7.6 An arrangement of three pegs with peg A having N disks 
and pegs B and C being empty 


There are three pegs denoted by А, B and C. Initially, peg 
A has N disks with the disk having the largest diameter being 
at the bottom and the remaining disks, with successively small- 
er diameter disks on its top. The problem is to move these N 
disks from peg A to peg C without violating any of the 
following rules: 
1. Peg В can be used as the only place, other than pegs 
A and C, where disks can be temporarily placed, 
2. Only one disk can be moved from one peg to another at 
a time (obviously, only the topmost disk can be moved 


from a peg), and 
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3. At no poínt of time, should a disk of larger diameter 
be on top of a disk of smaller diameter. 

A solution to this problem consists of а sequence of moves 
that would ultimately transfer all disks from peg A to peg C. | 
4 
| 
1 
| 


Let us now attempt to find a solution to the above prob- 
lem. Before attempting a general solution — that which would 
work for any value N (number of disks) — let us try getting 
the solution when N = 3. 

If we can somehow 

1. move 2 disks from peg А to peg B, 

2. then move the remaining disk from peg A to peg C, 

3. and finally move the two disks on peg B to peg C, 
then our job is done. But, one would immediately ask—how(1) 
and (3) above can be performed? Let us answer this question. 

We can move the top 2 disks from peg A to peg B by 

1.1 moving one disk (the top one) from peg A to peg C, - 
1.2 then, moving another disk (now at the top) from | 


peg А to peg В 1 
1.3 and, finally, moving one disk from peg C to peg B. * 5 
After the above three steps, 1.1-1.3 are performed, peg A - 
would have just one disk, peg B would have two disks and peg C 
would be empty. 
Step 3 above can be performed just the same way as step 1 
was performed. This time, as peg A is empty, we can use it 5 
а temporary place to hold disks (the reader may first via 
down the sequence of moves required to perform step 3 and n 
read further in this text). 
We thus get the following sequence of moves for N = 3: 
l. Move disk from A to C 
2. Move disk from A to B 
3. Move disk from C to B 
4. Move disk from A to C 
5. Move disk from B to A 
6. Move disk from B с 
7. Move disk from A 
Can we now generalize the above procedure for getting the 
solution? Looking at steps 1, 2 and 3, we note that for N = 3, 
step 1 moves (N-1), i.e. 2, disks from peg A to peg B; step 2 
moves one disk from peg A to peg C; and finally step 3 moves 
(N-1) disks (that were put on peg B) from peg B to peg C. We 
can therefore, after some thought, write a general procedure 
for getting the sequence of moves for any value of N. This is 
given as (for N » 1): 
1. Move (N-1) disks from peg А to peg B | 
2. Move one disk from peg А to peg С 
3. Move (N-1) dísks from peg B to peg C 
Now, if someone were to ask: how do we move (N-1) disks | 
from peg А to peg B? Тһе answer is: By using the same procedure 


| 
to р 
to С | 

| 


| 
| 
| 
| 
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as given above! Obviously, for М = 1, the solution is trivial. 

We have thus formulated a recursive procedure for finding 
а solution to the towers of Hanoi problem. Program P7.7 shows 
this procedure written in PASCAL. 

One can work out the minimum number of moves required to 
move N disks from peg А to peg C. It comes out to be 2N - 1, 
Thus, for N = 1, only one move (obviously) suffices. For N = 3 
7 moves suffice (as we found out above). For М = 64, 26%- L3 
which is approximately 1019, moves suffice. Assuming that a 
computer takes 10-? seconds to find one move, it will taks ab- 
out 30,000 years for this computer to work out all moves (not 
So obvious!). Remember, that not even. the fastest computer 
available today (nearing the end of 20th century) can do this 
job in anyone's lifetime. 

In P7.7 procedure movedisks embodies the procedure worked 
out above. It uses two more procedures — printpegname and 
moveadisk to print a peg name and print a move, respectively. 


PROGRAM TOWERSOFHANOI CINPUT, OUTPUT) 


(* THIS PROGRAM ILLUSTRATES THE RECURSIVE PROCEDURE ж) 
(* FOR SOLVING THE TOWERS OF HANOI жо 

(ж PROBLEM .IT OUTPUTS ТЕН MOUES ж) 

(ж REGUIRED TO TRANSFER М DISKS FROM ж) 

(ж ONE PEG TO ANOTHER PEG VIA A THIRD PEG *) 


TYPE 
PEG = (А,В,С); 
MAXNOOFDISKS = 1..10; 
VAR 
NOOFDISKS : MAXNOOFDISKS; 
NOOFMOUES: INTEGER? 
PROCEDURE MOUEDISKS (N:MAXNOOFDISKS; Р,О,Б:РЕО); 
PROCEDURE PRINTPEGNAME (PEGNAME : PEG): 
BEGIN 
CASE PEGNAME ОҒ 
A : WRITE ("А/О 
В : WRITE ¢’B’) 
C : WRITE ("С 
END; (ж ОР CASE »› 
END (ж OF PRINTPEGNAME жо 
PROCEDURE MOUEADISK (FROM, TOO : PEG ) ; 
BEGIN . 
NOOF MOVES: :NOOFMOUES*1; 
WRITECNOOFMOVES: 3,7’. tol 
WRITE ( ” MOVE A DISK FROM PEG " ›; 
PRINTPEGNAME (FROM); 
WRITE (5 7 TO PEKG-*-9) 
PRINTPEGNAME ( TOO >) + WRITELN ; 
END i (ж OF MOVEDISKS ж) 
BEGIM (* MOUEDISKS *) 
IF Nei 
THEN 
MOVEADISK (Р, В 
ELSE 
BEGIN 
MOUEDISKS (N-1, P, В, 0› 
MOVEADISK (PLR) f 
MOUEDISKS (N-1» Q.P, В) 
END ?} 
END ~. OF MOUEDISKS ж) 
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BEGIN (ж MAIN PROGRAM жо 
WRITE(’ NO ОҒ DISKS PLEASE : ”); 
READ (NOOFDISKS) + WRITELN ; 


WRITE (' MOVES REQUIRED TO TRANSFER >; 
WRITE ( NOOFDISKS ); 
WRITE (” DISKS FROM PEG A TO PEG С VIA PEG B 70; 


WRITELN ;MWRITELNM $ 

NOOFHOUES: =0: 

MOUEDISKS (С NOOFDISKS -A-BrC › 
END (ж OF PROGRAM ж) 


NO OF DISKS PLEASE : 4 


MOVES REQUIRED TO TRANSFER 4 DISKS FROM PEG A TO PEG C VIA PEG B 


1. MOVE A DISK FROM PEG A TO PEG B 
2. МОЧЕ A DISK FROM PEG A TO PEG C " 
3. MOUE А DISK FROM PEG B TO PEG C © 
4. MOVE A DISK FROM PEG A TO PEG B 
5. MOVE A DISK FROM PEG C TO PEG A 
6. MOVE A DISK FROM PEG C TO PEG B P 
7. MOVE A DISK FROM PEG а TO PEG B ecl 
8. MOVE A DISK FROM PEG A TO PEG С 
29. MOUE а DISK FROM PEG В TO PEG С 
10. MOVE A DISK FROM PEG B TO PEG A 
11. МОЧЕ A DISK FROM PEG C TO PEG A 
12. МОЧЕ A DISK FROM PEG B TO PEG C 
13. МОЧЕ A DISK FROM PEG а TO PEG B 
14. MOVE A DISK FROM PEG A TO PEG С 
15. MOVE A DISK FROM PEG B TO PEG С 
е. 
Р7.7 Program Ғор solving the Towers of Hanoi problem “2 


Direct and Indirect Recursion 


А procedure P can be recursive in two ways — either it calls 
itself, giving rise to direct recursion, or it calls another 
procedure 0 which in turn calls P giving rise to indirect or 
mutual recursion. 

А procedure which has indirect recursion introduces a pro- 
blem, While defining a procedure P, which calls another proce- 
dure Q that is yet to be defined, special care must be taken 
во that the compiler does not flag the call to Q as an error. 
Such a call is known as a forward reference. According to the 
general rule in PASCAL, no identifier can be used before it 
is defined. Thus, a call to Q which in turn calls P, will be 
flagged as an error as Q is not defined before P is. 

Most PASCAL compilers get around this problem by permit- 
ting the programmer to partially declare such procedures that 
are to be actually defined later. Thus, for example,if Q is 
to be defined after P, but used іп P, we can write іс іп the 
following manner: 

procedure 0 (x, y : integer) ; forward ; 

procedure P (a, b : real) ; 


P3 
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begin 
definition of P in which Q is used 


end ; (* of P *) 
procedure Q ; (* omit parameters as these are already 
defined *) 
begin 
definition of Q which can use P 
end ; (% of Q *) 


However, all compilers may not permit such forward referencing 
When Not to Use Recursion 


Recursion is a powerful programming tool. However, if used 
indiscriminately, it could be wasteful of computer time and 
memory. Though there is no rule which can be used to find whe- 
ther to use recursion or not, an understanding of some impli- 
cations of using recursive procedures or functions proves use- 
ful in taking the right decision. In general, any programming 
problem for which a recursive program is written, can also be 
solved using an iterative version. 

To understand the implication of using a recursive defini- 
tion, consider the following two definitions of the factorial 
function: 

еі Ni oed if N = 0 

ж ҢІ; d£ N » 1 
ap ТН жз, if N=0 
m eee os. UN LEON > oll 

The first definition above is recursive while the second 
one is iterative. To compute, say, 4! using (1) above, we 
proceed as 
y 4! 


eee ee ж 
eee em 


O* CO CO WWW 


4 
4 
4 
4 
4 
4 


24 


Note that the sequence of numbers used in multiplication above 
is the reverse of the sequence in which these are generated. 
Thís implies that the numbers 4, 3, 2 and 1 have to be kept 
somewhere before the first multiplication can begin. In terms 
of the recursive factorial function, written earlier, each 
time the function is invoked, all its local variables need to 
be saved somewhere, and retrieved on return from the recursive 
call. 

It is this saving, and then unsaving, of local variables 
as a result of each recursive call, that consumes significant 
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computer time іп many cases. 

Note that if 4! is computed using the second definition 
above (this is an iterative definition) the multiplication 
can be performed as soon as the next number has been generated. 
After the partíal product has been obtained, this number is no 
more required. Thus, a program, written based on the iterative 
definition for factorial, will execute relatively faster than 
the one written using the recursive defintion and require less 
memory too. 

Using the above reasoning, it becomes evident that the 
factorial, Fibonacci and reverse functions and procedures wri- 
tten earlier, would be far more efficient in terms of execution 
time and memory space, if written using iteration. 

However, the above reasoning cannot be always applied. The 
'Towers of Hanoi' problem is a case in point. In such problems, 
a recursive program can be written far more easily than an it- 
erative one (try writting a non-recursive program for Towers 
of Hanoi problem!). Thus, in certain problems the cost of pro- 
gram development becomes significant. Further, even when a non- 
recursive program is written for such problems, it may execute 
as slow as the corresponding recursive program and require as 
much space too. 

It can therefore be concluded that both recursion and iter- 
ation have their own advantages and disadvantages. Which one 
to choose depends largely on the problem at hand, the experi- 
ence of the programmer and, of course, the programming langu- 
age to be used (not all languages permit recursive definitions). 

* 


7.7 SUMMARY 


In this chapter, we have presented one of the most useful tools 
for program development — procedures and, their restriction, 
functions. Syntax charts have been used for describing the syn- 
tax of procedure and function definitions and calls. 

The notion of parameters has been introduced and rules for 
correspondence between actual and formal parameters stated. 

Any error in passing actual parameters is generally detected 
by the PASCAL compiler itself thereby relieving the programmer 
from the drudgery of going through incorrect outputs to locate 
the error. Procedures and functions should be seldom used as 
parameters, and if used, caution must be exercised. 

Procedures not only help a programmer in organizing his 
thoughts, one can also plan testing of the program in a stepwise 
manner—the way programs were developed in the examples given 
in this chapter. Procedures can be tested separately and later 
integrated into one program which can be finally tested. 


5 
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Testing procedures individually does require a progra- 
mmer to write a suitable routine in which the procedure can 
be embedded for testing. However, this additional burden is 
worth carrying, for it vill aid, and hopefully speed up, the 
process of testing the final program. 

Recursion, introduced towards the end of this chapter 
is also a powerful programming tool. However, its use should 
be limited to those problems for which an iterative solution 
is either not easily derived or is too unreadable. 


EXERCISES 


7.1 (a) How do you think procedures aid a programmer in carrying out 


the task of program development? 
(b) Procedures without parameters operate only on а fixed set of 
named variables. How are such procedures useful? 


7.2 Examine the following procedure and answer the questions that 


follow: 
procedure yourtest (var a, b : real ; i, j : integer) ; 
var 


Up : real ; max, К : integer ; 
begin 
= 1; q := 0.0; 
repeat 
р::Ь-а; 
q 24-25 
b := q 3 К := ktt 


until k = (j*i) ; 
Assume that the following declarations hold at the point of call 
% to the above procedure 
var 
74: array [1 .. 10] of real ; 
x,y Т real ; r,s : integer ; 
which of the following calls are invalid: 
G) yourtest (x, у, г, в) 
Gi)  yourtest (z(r), y, s, г) 
(iii) yourtest (z(r), z(s), r, s) 
(iv)  yourtest (z(r), z(s), x, s) 
(v) yourtest (x, y, r) 
(vi)  yourtest (x, y, в) 
(vii) yourtest (z, y, г, s) 
(viii) yourtest (x, 5.0, г, s) 
(ix)  yourtest (x-2(r), ytz(s), v, s) 
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7.3 Examine the following procedure 
procedure partest (x, y : integer ; var p, q : integer) ; 
var 


m, n : integer 


begin 
P := x+y ; q := x-y 
read (m,n) ; 
xX i= mtn; 
Tice ier, ng 
р := x+y ; q := x-y 


end ; (* of procedure %) 
(a) Assuming that a and b are integer variables having 7 and 8 
respectively as their values, what values will be printed after 
the execution of the following statement sequence: 
partest (a, b, i, j) ; 
writeln (a, b, i, j) ; 
] Assume that i and j are also integer variables. 
(b) Given that the following declarations hold at the point of 
procedure call 
SM 
Y T, n, X, y, P, Q : integer 
^ what will be the printout after the execution of 
mes 8 уп чао Од; 
Ж45-25-5-у-%ғ527-% 
partest (m, n, x, y) ; 


writeln (m,n, x, y) ; “ 
^ 7.4 Write a procedure named replace that is called қ 
replace (А, N, IN, OUT) э 
to substitute all occurrences of the value of IN in the character 


array А, by the value of OUT. IN and OUT are also of type character. 
N is the number of elements in A. 
Test this procedure by using it in a PASCAL program. 


7.5 (a) Write a function peval which when invoked as: * Ф 


peval (n, x, А) 
evaluates the nth order polynomial + 


2 
ар + а × + a х +1... + ax 


Where а; are the elements (polynomial coefficients) of array A. 
We write peval using Horner's factorization to evaluate the 
polynomial which may be written as 


* * 
| C... (a, x + 84-4? х+...+а,) x + а 


Find the number of multiplications and additions required to 
evaluate the polynomial term by term, without any factorization. 
Thus, evaluate the advantages of factorization. 


m. 


——" ee 
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Write procedures to perform the following matrix operations. In 
each case, decide what should be the formal parameters. 

(a) Transpose an NxM matrix of reals 

(b) Rotate an NxN matrix of integers such that the element init- 
ially at position 1,1 is positioned at position 1, 5, 
that at position 1,N moves to position  N,N and so on. 

(c) Compute the saddle point of an NxM matrix of reals and return 
its position (row and column number). An element А i,j isa 
saddle point of matrix A if it is the highest valued element in 
colum j and smallest valued element in row i, The procedure 
should give a suitable indication (through patameters) if no such 
element exists. 

Write a procedure that takes an integer, say N, as input and 
generates a diamond on the output device. For example, ifN=3 
and 4 the outputs should be of the form 


* * 
kkk kak 
EN EE! Rak 
kak *o* kk ok kx 
* kerk 
kkk 
* 


Note that the total number of lines in the diamond is (2*N-1) 


Write a boolean function named ordertest that takes an array А 

of N integer valued elements as input and returns true only if 

the elements satisfy the relation 

AGI) «4 [i14] <А [1425 5 

The translation of text given in one natural language to another 

language is a formidable problem to program. This exercise requ- 

ests the development of a simple language translator from English 

to French. The translator can be used for performing a word-to- 

word translation only. It consists of the following procedures/ 

functions: 

(i) defvocab — Reads pairs of words thus defining the translator's 
vocabular. First element of pair is ап English word, 
the second element is the corresponding French word, 

(ii) search -- Searches for а given English word in the vocabulary 
and returns the corresponding French word, if avail- 
able. If the given word is not found, a suitable 
indication is given. 

(iii)getsentence—Reads an input sentence that is to be translated. 

І The sentence is terminated by а fullstop (period). 

(iv)translate — Uses the above mentioned procedures to translate 
the given sentence and print out the input as well 
as the translated sentence. Those words in the in- 
put which do not exist in the translator's vocabu- 
lary are output unchanged. 
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Write a complete program incorporating the above procedures 
and test it on a sample input. 


The Towers of Hanoi problem stated in the text can be generalized 
by providing K (instead of only 1) extra pegs. The problem now is 
to move the N disks from one peg to another using these K extra 
pegs in a minimum number of moves. 

Write a program that prints out the sequence of moves for 
any combination of values of N and K. 


Write a recursive procedure to reverse a given word and print it 
out (in the reverse form). 


The 'game of life сап keep one busy and entertained for quite 

some time. The game is played on a large, though fixed, rectangular 
grid of squares. Each square on the grid, except squares on the 
border, has eight neighbouring squares as shown below: 


Each square is either occupied (indicated by shading it) 
or empty. The genetic laws of birth, survival and death apply 
to a square depending on the status of its neighbouring squares 
and itself. 

A game begins with a pattern—occupied and empty squares. 
The patterns then change depending on the laws. These laws are: 

1. If a square is occupied, it remains so if it has at least 
two but not more than three occupied neighbouring squares 
otherwise it becomes empty. 

2. If a square is empty then it becomes occupied if it has 
exactly three occupied neighbouring squares, otherwise it 
remains empty. 

Each move of the game consists of simultaneously applying 
the above laws to all squares. The game ends when the application 
of these laws fail to bring about any change in the existing 
pattern, 

Develop a PASCAL program that plays the game of life. If you 


have a display terminal available, the desired grid can generated on the 
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screen and an initial pattern established by prompting the user. 
The new patterns can then be generated on the screen each time 
the user presses the M (move) key on the keyboard. 


Rewrite P7.6 taking care of the following situations: 

(a) If the iterative process does not converge within N (say 20) 
iterations, the user should be informed. If the user desires to 
carry out M more iterations, the program should do so and output 
the result after (М+М) iterations. 

(b) If the derivative of a function is less than є] (e1 isa 
snall quantity, say 1. E-5), the iterative process should ter- 
minate after informing the user. 


(c) For some functions, the iterations are oscillating. This 
implies that if r; is the current estimate of the root, гін 
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tbe next and гі the next, then P: = тур, The root finding program 


should detect such a situation end terminate after informing the user 


Modify P7.6 so that the terminating condition, indicating that the 


root has been estimated is: 
(а) [x, - Xn4d $6 
(b) Сх; - х1] «е 


x. 
1 


8 


MORE DATA TYPES 


PASCAL provides one of the most powerful and rich typing mecha- 
nisms amongst the widely-used programming languages. At the 
primitive level, it has the four basic types—integer, real, 
boolean and character, Using these, one can form structures 
with the aid of array and record constructors, To aid in deve- 
loping readable programs, the ability to define a new set of 
values by enumerating them is also provided. To further help 

a programmer in program development, PASCAL allows the associ- 
ation of identifiers to types, thereby providing a tool to 
construct and use almost any data structure found in practice. 

Though any structure found in practice can be simulated 
using the facilities mentioned above, certain structures can be 
defined and used efficiently if additional types are provided, 
Sets are commonly used objects, Though these can be modelled 
using arrays, PASCAL provides a type called set permitting a 
user to declare a variable as a set of objects. 

Arrays only permit us to define static structures whose 
size and form remain fixed. Several structures that arise in 
practice are dynamic—varying in size and form during the 
execution of a program, Pointers and variant records facili- 
tate the definition of such dynamic structures. 

This chapter introduces sets, pointers and variant records. 
Another type—file—is more useful in data processing applica- 
tions where large volumes of data, stored on a disk, are mani- 
pulated, Owing to its distinctive application, we have descri- 
bed the file type in the next chapter. 


8.1 SETS AND SET OPERATIONS 

Sets are commonly used structures, Tc understand how these 

can be defined in PASCAL, consider the following type 
attribute = ( tall, slim, short, fat, fair, dark) 


Using the above type definition, we can define a set consis- 
ting of the values 


[t211, slim] 
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or, another set 
[short , fair, fat] 


or, yet another set 
[dark] 


Each of the above mentioned sets consists of values which are 
of type — attribute — defined earlier, These sets are themsel- 
ves values of base type attribute, We can thus define a type 
which 1з a set of all possible values of base type as follows: 
personkind - set of attribute ; 
Now, if we declare P and Q as 
PEOS personkind ; 


then some of the possible values of P and Q are the ones ment- 
ioned above. A few others are 


tal1] 
tall, dark ] 
fair, short] 


Note that the empty set 
denoted as 


(ж ) as is also a possible value’ 
of P or Q. 
Figure 8.1 shows the 


FIG. 8,1 Syntax of set type definitions syntax chart defining the 

PASCAL set type. Note 
that the base type of a set can only be a simple type — any 
one of the four primary types or any enumerated type. Thus, 
the following is a invalid declaration 


vector = array [1 oie 10] of integer ; 
vectorspace = set of vector ; 


The following are valid declarations: 


P: set of (tall, slim, short, fat, fair, dark) ; 
colourchoice : set of (red, blue, green, yellow, violet) ; 


pendingliftcalls : set of floors 
In the last example above, ме assume that 
floor = 1 .. 10 

A value of type, set, 1s specified by enclosing constants 
(of a base type) within square brackets, as given іп examples 
above. Figure 8.2 shows the syntax of sets—set values—that 
can be constructed in PASCAL, The following are а few examples 
constructed using Fig. 8,2 and the set types defined above. 
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expression 


expression 


FIC. 8,2 Syntax of sets 


[tall, dark] 
[253357891 
[red,..,green,violet] 
[ choice, tall] 


Notice how a subrange is used for specifying values belonging 
to a set. In the last example above, choice is a variable of 
type attribute. Whenever an expression is used to define a 
member of a set, its type must be the same as the base type 
of the set being defined. 


Operations Using Sets 


A set can be assigned to another variable, also a set, of the 
same type. Thus, if we have 
mychoice, yourchoice : colourchoice ; 


we can write any of the following statements: 


© 
mychoice := [red, blue] ; pop 
yourchoice := [red..yellow]; : 
mychoice := e ; } | 
mychoice := 21; 


Assignment serves to initialize the value of a set variable. 
Obviously, when a value is assigned to a set variable, its 
value, prior to the assignment, is destroyed. 
Using the in operator, it is possible to determine whether 

a value belongs to a set or not, For example, if mychoice has 
a value 

[red, blue, yellow] 
then the test 

blue in mychoice 
yields true, another test 


violet in mychoice 


yields false. Such tests are expressions yielding a boolean 


value, 
If two sets are to be compared, the four relational opera- 


tors <, = , >, f сап be used. The following expressions 
+ 
- К а 


Жан 


UT WCG TN 
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illustrate the use of these operators: 
o [559987 ^w99 [355554795 10] is true as L5, 91 ів 
a subset ot (|3, 5, 9, 10 . 
„ [red, blue] = [Ъ1че, red | is true 
e [red, blue] > (еа, blue, violet] is false as 
[red, blue] does not contain the set 
[red, blue, violet]. 
The conditional expressions on sets can be used as conditions 
іп if, while or repeat statements. The following are valid 


constructions: 
e if colour 


[л 


[red, blue, green ] then 
. writeln('THAT IS 


MY CHOICE') 


“SS riteln('THAT IS 
YOURS") ; 
«тела cch ino БАУЫ 225, '] do 
begin 
read (ch) ; 
write(ch) 
end ; 
.vhile ch in ["4* .. '2'] or (mychoice $ yourchoice) do 
begin 
end ; 


We can form union, incersection and difference of two 
sets sj and s2 by forming the expressions 


sy + 82 (union) 
ву * 82 (intersection) 
8] - 82 (difference) 
A few examples are given below. 
['А', tot, 211 3 Гр", '2'] 4 [ra', 15! A 524 


(сед, Ь1че, кетер ж [green] = [ вгееп | 
db 7 Р КЕКЕ 


"m 7, 2] v» [3, 
Note that the syntax of expressions given earlier in 
Chapter 3 18 also valid for expressions involving sets. How- 
ever, all operators cannot have sets ав their operands. 


We shall now present a few programming examples to illus- 
trate the use of sets. 


Example 8.1 


This example illuscrates how sets can be initialized, formed 
and manipulated. We shall write a program which matches the 
colour choice of one person with that of several other pers- 
ons. A count of total number of "11ке-тіпдйей! persons is accu- 


mulated and printed. 
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The overall algorithm can be formulated as 


begin 
initialize 'our man's choice'; 
nooflikemindedpersons :- 0 4 
read (noofpersons) ; 
for i := 1 to noofpersons do 
begin 
read next person's choice ; 
if it matches with our man's choice 
then 
nooflikemindedpersons :- nooflikemindedpersons 
ST: 
end ; 
Assuning that the typescolour is aefined ав 
colour = (red, blue, green, violet, yellow, orange, brown) ; 


, 
we can define another type 


colourchoice = set of colours ; 


i We can now introduce variables ourmanchoice and otherschoice 
14 as 

2 ourmanchoice, otherschoice : colourchoice Н b 

m 

Incorporating these variables in the algorithm above, the comp- 
lete program is written as shown in P8.1, Here it is 
that data about the choice of any other person is giv 
Sequence of 7 characters Y and N. A sequence 


YYNYYNN 


implies that the choice set of this person contains the colours 
red, blue, violet and yellow. O 


PROGRAM COMPARIRECHOICE (INPUT, OUTPUT); 


(ж THIS PROGRAM COMPARES THE FLOWER CHOICE ж) 
(ж OF A VISITOR WITH THAT OF THE PROGRAMMAR ж» 


TYPE 
COLOR = (RED, BLUE, GREEN; VIOLET: YELL OW, ORANGE, BROWN)? 
“ COLORCHOICE = SET OF COLOR; 
VAR 


; OURMANCHDICE,OTHERSCHOICE : COLORCHOICE: 
NOOFLIKEMINDEDPERSONS, NOOFPERSONS : INTEGER; 
CHOICECODE : CHAR; CHDICE : COLOR; 

E I : INTEGER; 

| BEGIN 

/ OURMANCHOICE :- CRED, BLUE, VIOLET, BROWNI; 

NOOFLIKEMINDEDPERSONS := о; 
WRITEC'NO. OF VISITORS : ео; 

22 READLN (NOOFPERSONS); 

l WRITELN? 

, FOR I := 1 TO NOOFPERSONS DO 
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ВЕСІН 
OTHERSCHOICE :: (1; 
WRITE( ‘PLEASE ENTER YOUR CHOICE (Y/N > : ‘DF 
FOR CHOICE :: RED TO BROWN рО 
BEGIN 
READ (CHOICECODE): 
IF CHOICECODE = ‘Y’ 
THEN 
OTHERSCHOICE :: OTHERSCHOICE + (CHOICE)! 
END; 
WRITELN? 
IF OURMANCHOICE = OTHERSCHOICE 
THEN 
NOOFLIKEMINDEDPERSONS :: NOOFLIKEMINDEDPERSONS*1; 
END; 
WRITELN; WRITE ('TOTAL NO OF LIKE MINDED PERSONS IS '); 
WRITE (NOOFLIKEMINDEDPERSONS : 4); 
WRITELN 
END. (ж OF PROGRAM ж) 


NO. OF VISITORS : 2 


PLEASE ENTER YOUR CHOICE (Y/N ) i YYNYNNY 
PLEASE ENTER YOUR CHOICE (Y/N ) : YNYYYYY 


TOTAL NO OF LIKE MINDED PERSONS IS 1 


T8.1 Program for comparing colour choices 
Example 8.2 (Florist enquiry system) 


A florist sells a rich variety of flowers at his posh shop. At 
the beginning of each day, he gets flowers — in units of bun- 
ches — from his sprawling gardens. The variety and quantity of 
flowers received at the shop on each day varies from day to 
day depending on factors like season, extent of flowering in 
the gardens, number of flowers plucked earlier and so on. 

Every day, the florist enters data іп hís small computer 
about the variety of each flower and the number of bunches 
received. Once these data are entered, the computer acts as an 
enquiry system for incoming customers, Each customer demands a 
particular variety and the number of bunches. The computer in- 
forms the customer whether the demand can or cannot be met. If 
it can be met, the customer enters into a queue of cther waiting 
customers and is serviced by the florist, or his support staff, 
on his turn. 

At the end of the day, the florist disposes off any remain- 
ing stock to local 'street-florists'. 

We shall develop a PASCAL program which 

1. aids the florist in entering data about flowers 
received every day, and 
2. responds to customer enquiries as described above. 

To begin with, we can formulate the algorith structure as 
shown below 

program floristenquiry (input, output) ; 

type 
flower = ... ; 
bunch = 1 .. 100; 
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var 
~~ todaysvariety : set of flower ; 
stock : array [flower ] of bunch ; 
begin 
read variety and quantity received ; 
while more customers exist do 


begin 
read customer demand ; 
(1) if demand can be met 
then 
request the customer to wait in queue 
else 
say sorry and request him to visit 
again ; 
end ; 


print remaining stock ; 
end (* of florist enquiry system program *) 


Let us now refine the task 'read variety and quantity rece- 
ived' into simpler steps. To aid the florist in entering data, 
we assume that the program prints out, for each possible flower 
variety, its name and then expects the florist to type in two 
quantities 

e character 'Y' if this variety is available today 

otherwise the character 'N' is typed, and 

e if 'Y' is typed, then the number of bunches of this 

variety should also be typed in. 

With the above Fequixenen t in view, we can formulate a pro- 
cedure to read each day's data as follows 


procedure readdaiiydata ; 
var 


yesno : char ; 
index : flower ; 
begin (* readdailydata *) 
todaysvariety = Ç 
writeln ('PLEASE ENTER TODAYS INVENTORY') ; 
writeln ; 
(2) for index := ROSE to LILLY do 
begin 
printname (index) ; 
read (yesno) ; 
if yesno = 'Y' 


then 
begin 
read (stock [index ] SALS 
todaysvariety := todaysvariety + Lindex] 
end 
* else 


Stock [index] $20 ; 
end ; (% of data input loop %; 


-а да жал ада evt чу ай‏ د 


—————— ай жы 
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ке ні ГК. ы = _ 
ا‎ 


More Data Types 241 


writeln ; 
writeln ('ENQUIRY SYSTEM READY FOR USE') ; 


writeln 
end ; (* of readdailydata *) 


Procedure printname used in (2) to print the name of a 
flower can be coded using an array of flower names initiali- 
zed at the beginning of the program. Defining a type 


flowername = packed array [1. .max1en] of char ; 
we can declare a variable namelist as 
namelist : array [е1омег] of flowername ; 


Using this structure to represent all flower names, we can, 
for example, refer to the name of ROSE as 


namelist [kose] 


Recall that a packed array of characters is treated as a string 
in PASCAL and can be printed conveniently using the write or 
writeln statement. 

The above declarations lead to the following one statement 


procedure: 

procedure printname СЕ: flower ) ; 

begin 
(3) write (namelist [r] PUN UA 
end ; (* of printname *) 

Looking back at (1), we now focus our attention on the prob- 
lem of interacting with the customer. On arrival, a customer, 
say, types in character 'A'. When no more customers are to Бе. 
entertained, the florist can type in 'T' to indicate program 
termination. 

After the customer has 'checked in', the program prompts 
him with flower name and remaining stock. In turn, the program 
expects the customer to type in the demand (number of bunches). 
If the customer demand cannot be met, a message is flashed and 
the prompting continues (for the remaining varieties). To redu- 
ce the customer interaction time, varieties available are fla- 
shed and then only the prompting begins. 

The above reasoning leads to the following customer inter- 


action loop—modified version of the loop in (1). 


read (arrival) ; 
while arrival - 'A' do 


begin 
flashcurrentvariety ; writeln ('ANY FLOWER OF YOUR 
CHOICE?') 


read (response) ; 
if response = 'Y' then 
for index :- ROSE TO LILLY DO 


^ 
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begin 
available := stock [index] ; 
if available' » 0 and (index in todaysvariety) 
then 
begin 
printname (index) ; 
write (available : 4) ; 
read (demand) ; 
if demand > available then 
“write ('PLEASE CHOOSE Е ANOTHER FLOWER") 


else 
begin 
write ('YOU WILL GET ІТ"); 
stock [index] := stock [index] 
- demand 
end ; 
end ; 


end ; (* of one customer interaction *) 
readin (arrival) ; 
end ; (* of customer interaction loop *) 


The flashcurrentvariety procedure can be coded using the 
variables todaysvariety and stock. This procedure prints atmost 
6 names per line. 


procedure flashcurrentvariety ; 
var 
namesprinted : integer ; 
begin 
writeln ('THE FOLLOWING VARIETIES ARE AVAILABLE') ; 
writeln ; namesprinted := 0; 
for index := ROSE to LILLY do 


begin 
if namesprinted > 6 then 
(5) 7 begin 
namesprinted = 0; 
writeln 
end ; 
if (index in todaysvariety) and stock [index ] 
^ then › 0 
begin 
printname (index) ; 
namesprinted := namesprinted + 1 
end ; 
end ; 


writeln ; 
end ; (* of flashcurrentvariety *) 
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Finally, at the end of the day, the remaining stock сап be 
displayed by the following procedure. 


NYSE айба: 


procedure displaystock ; 


begin 
writeln ('REMAINING VARIETIES AND STOCK') ; 


writeln ; 
for index := ROSE to LILLY do 
begin 
available := stock [index] $ 
if available > 0 then 
(6) begin 
printname (index) ; write (available : 4) 
writeln 
end ; 


UN CROSSES T MT NER STR EM 


| епа ; 


end ; (* of displaystock %) 


Combining different procedures in accordance with (1), we 
| get the complete program shown іп P8.2.[] 


PROGRAM FLORISTENGUIRY (INPUT;OUTPUT); 


(ж THIS PROGRAM SERVES AS A FLORIST ENQUIRY SYSTEM. ж) 
(ж FOR DETAILS ,SEE TEXT. ж) 


CONST 
MAXLEN 
TYPE 
FLOWER (ROSE, LOTUS, TULIP, CANNA, MARIGOLD, LILLY)? 
BUNCH = 0..100; 
FLOWERNAME = ARRAY L1..MAÓXLENJ OF CHAR; 
VAR 
TODAYSUARIETY : SET OF FLOWER; 


STOCK: ARRAY [FLOWER] OF BUNCH; 
INDEX : FLOWER? NAMELIST : ARRAY CFLOWERJ OF FLOWERNAME; 


ARRIVAL : CHAR; DEMAND, AVAILABLE : INTEGER; RESPONSE: CHAR + 


PROCEDURE READNAMES: 


(ж READ NAMES OF FLOWERS THAT CAN BE STOCKED ж) 


UAR I: INTEGER? 


BEGIN 
FOR INDEX:=ROSE TO LILLY DO 


BEGIN 
WRITE (FLOWER NAME PLEASE : 70; 
FOR 1:-1 TO MAXLEN DO READ(NAMELISTE INDEX, 11); 
WRITELN? 
END; (ж OF READ NAMES LOOP ж) 
END; (ж ОҒ READNAMES PROCEDURE ж) 
PROCEDURE PRINTNAME iF: FLOWER)? 
UAR I: INTEGER? 
BEGIN 
FOR І::1 TO MAXLEN DO 
HRITE(NAMELISTLF^I35; 
END: (ж OF PRINTNAME *) 
PROCEDURE READDAILYDATA? 
VAR 
YESNO: CHAR i 
BEGIN 


TODAYSUARIETY = 2; 
WRITELN ('PLEASE ENTER TODAY’’S INVENTORY’)? 


{ WRITELN: 
FOR INDEX:= ROSE TO LILLY DO 
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BEGIN 
PRINTNAME (INDEX); г $ 
MRITEC^ IN STOCK ? : 7); 
— —-REARDLN (YESNOO?; 2 -- — --------------------- 
IF YESNO = 'v* 
THEN 
BEGIN 
WRITELN; 
WRITE(’PLEASE ENTER STOCK : '5; 
.READLN (STOCK CINDEX1); 
TODAYSUARIETY :- TODAYSUARIETY+C INDEX]: 
END 
ELSE 
STOCKCINDEX2 : 
END ; (ж OF DATA INPUT LOOP жо 
WRITELN: 
WRITELN C'ENQUIRY SYSTEM READY FOR USE’): 
WRITELN? 
` END ; (ж OF READAILYDATA ж) == - -------------.----------. 
. PROCEDURE FLASHCURRENTUARIETY + ` / 
_ VAR 
NAMESPRINTED : INTEGER? 
BEGIN 
RITELN; 
WRITELN ('THE FOLLOWING VARIETIES ARE AVAILABLE’); ў 
ur NAMESPRINTED i= O; RA uet Peps م‎ 2 
FOR INDEX :- ROSE TO LILLY DO 
BEGIN - 
IF NAMESPRINTED > 6 
THEN 
BEGIN 
NAMESPRINTED :- O; 
—— НАЕТ ———.- ---- = ТАРЫ Ge 
END ; 
IF (INDEX IN TODAYSUARIETYO AND (STOCKCINDEX] 20» 
THEN 
BEGIN 
PRINTNAME (INDEX); 
= RE D Te ы NAMESPRINTED := NAMESPRINTED + 1 
с» = (END ; 
END ; 
WRITELN? 
END; (ж DF FLASHCURRENTUARIETY ж) 
PROCEDURE DISPLAYSTOCK; 
BEGIN 


=0 


Ж 


WRITELN? 
WRITELN ("REMAINING VARIETIES AND STOCK’): 
WRITELN; 
FOR INDEX := ROSE TO LILLY DO 
BEGIN 
AVAILABLE :: STOCK CINDEXI: 
IF AVAILABLE > 0 
THEN - 
BEGIN 
PRINTNAME (INDEX); 
WRITE (AVAILABLE : 4); 
WRITELN 
END? 
END: 
END; (* OF DISPLAYSTOCK э) 
BEGIN (ж OF MAIN PROGRAM ж» 


WRITE (PLEASE INDICATE YOUR ARRIVAL BY TYPING AN A '); 
READLN (ARRIVAL)? 
WHILE ¢ ARRIVAL = ‘A’ ) AND t TODAYSUARIETY <> £3 > DO 
BEGIN 
FLASHCURRENTUARIETY? 
WRITELN ('AMY FLOWER OF YOUR CHOICE ? *); 
READ, (RESPONSE); | i 
If RESPONSE = ‘Y’ 
THEN 


ЧҮҮ Tr———mmm жам, 


rob cuban РЕ EXER 
BEGIN : T 
AVAILABLE :- STOCK [INDEX]; 


IF (INDEX IN TODAYSUARIETY) AND (AVAILABLE > 0) 


Б Sp ee 
PRINTNAME (INDEX); 


WRITELN (AVAILABLE : 4,6 ”); 


WRITELN; 


WRITE (YOUR DEMAND PLEASE: ')i 


4 READ (DEMAND)? — — 
з IF DEMAND > AVAILABLE 
THEN : 


WRITELN (^ PLEASE CHOOSE ANOTHER FLOHER’ 


ELSE 
BEGIN 


WRITE ('YOU WILL GET 179; 


WRITELN? 


STOCK C INDEX] :- STOCK CINDEX] ~ DEMAND; 


IF STOCKÜINDEXJ-O 
THEN 
TODAYSVARIETY 
END; 
END? 
END: (ж OF ONE CUSTOMER INTERACTION ж) 
WRITELN’ INDICATE AARRIVAL WITH AN à ”›; 
READLN (ARRIVAL)? 
END; (* ОҒ ALL» CUSTOMER INTERACTION ж) 
WRITELN? 2 
IF TODAYSVARIETY 5C3 
THEN 


WRITELN(’ NOTHING LEFT IN STOCK ^?) 
ELSE 
BEGIN 
WRITELN’ STOCK REMAINING ':20)5; 
WRITELN4 
DISPLAYSTOCKS 
END} 


END (ж ОҒ PROGRAM ж. 


FLOWER NAME PLEASE : ROSE 
FLOWER NAME PLEASE : LOTUS 
FLOWER МАМЕ PLEASE : TULIP. 
FLOWER NAME PLEASE : CANNA 
FLOWER NAME PLEASE : MARIGOLD 
FLOWER NAME PLEASE : LILLY 
PLEASE ENTER TODAY'S INUENTORY 
ROSE . IN STOCK T Y. e pcd an 
PLEASE ENTER STOCK : 100 
torus IN STOCK ? : Y 
PLEASE ENTER STOCK : 300 

TULIP IN STOCK ? : Y 
PLEASE ENTER STOCK : 200 
CANNA IN STOCK 7 : ¥ 


PLEASE ENTER STOCK “720 
MARIGOLD IN STOCK ? : 


PLEASE ENTER STOCK : 40 
LILLY IM STOCK 7: 


PLEASE ENTER STOCK : 100 
ENOUIRY SYSTEM READY FOR USE 


PLEASE INDICATE YOUR ARRIVAL BY TYPING AN А A 


THE FOLLOWING VARIETIES ARE AVAILABLE 

ROSE (005 TULIP CANNA MARIGOLD LILLY 
ANY FLOWER: OF YOUR CHOICE ^? 

y ROSE 100 


YOUR DEMAND PLEASE: 100 
IE 


ре OA. 32-2”. айылды 


:=TODAYSVARIETY-C€ INDEX]; 


| 


-— CN _ , د‎ IE 
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YOUR DEMAND PLEASE: 250 
YOU HILL GET IT 
TULIP 200 


YOUR DEMAND PLEASE: 250 
PLEASE CHOOSE ANOTHER FLOWER 
CANNA 200 


YOUR DEMAND PLEASE: 150 
YOU WILL GET IT 
MARIGOLD 400 


YOUR DEMAND PLEASE: 300 
YOU WILL GET IT 
LILLY 


YOUR DEMAND PLEASE: 10 

YOU WILL GET IT 

INDICATE ARRIVAL BY A 
STOCK REMAINING 


REMAINING VARIETIES AND STOCK 


LOTUS 50 
TULIP гоо 


санна 5о 
MARIGOLD 100 
LILLY so 


more +o. с ww 


P8.2 Program for a florist enquiry system 


8.2 POINTERS і E 


In earlier chapters, we have seen how tables of any size and 

form can be defined and used in PASCAL. The array structure 

permits us to define the size of the table and with the aid 

of records, elements of a variety of forms can be constructed, 
Once a table has been declared as an array, its size gets 

fixed. Thus, a table declared as 


inventory : array [1 .. 1000) of record 
name : array [1..20]оғ 
char ; 
code : 1 ...2000 ; 
stock : 0 .. 100 
end ; 


has a fixed size of 1,000 elements each of size 23 words 
(assuming one word for an integer or character). If the number 
of items actually in stock is only, say, 800, the remaining 
Storage is unused. Оп the contrary, if the number of items exc- 
eeds 1,000 the program in which the above declaration appears 
needs to be recompiled with the array size suitably increased. 
The concept of a pointer type in PASCAL permits the progra- 


mmer to define tables (or other structures) whose size is not 1 
limited by the declaration at compile time. Thus, as and when | 
required, during program execution, more elements can be added р 


to (or deleted from) the structure, thereby permitting it to 
grow (or shrink). In the rest of this section and the next, we 
Shall learn how pointer variables can be defined and used effe- 
ctively. 


ee, ee: eee ee 
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The Pointer Type 


The type pointer can be defined in accordance with the syntax 
shown in Fig. 8.3, For example, we can define 


pointertochar = 4char ; 


Өз type identifier 


FIG. 8.3 Syntax of pointer type definitions 


Now, using the above definition, we may deciare two variables 
as 


Cl, C2 : pointertochar ; 


Variables Cl and C2 are of type 
pointer (to a character value). 
Note that the values of Cl and 
C2 will not be characters, these 
will be pointers to characters. 
Figure 8.4 shows the relation- 
ship-between a pointer variable 
and the value it points to. 
When a pointer variable, as 
Cl and C2 above, is declared 
its value is undefined, implying 
that it points to 'nothing'. 
Figure 8.5(a) depicts this situation. A pointer variable can be 
defined by creating a location to which it should point and then 
making it point to this location. Both these tasks are performed 
by the following call 


FIG. 8.4 Pointer variables 
and their values 


new (C1) ; 


O>: 
(a) ©) 


FIG. 8.5 (a) An undefined pointer variable 
(b) Effect of the call new (C1) 


in 
Her ew is a built in procedure. Its effect is as shown 

Fig. 8.5 (b). A new location, of appropriate type, is created and 
and the variable is made to point to it. However, the location 
во created is not defined. It can be defined by the following 
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assignment: 
: Cl+ :- ‘Pp! 


Here, Cl+ is known as a referenced variable. 

. After this assignment, Cl points to the value 'P' as shown 
in the top half of Fig. 8.4. 

In the above assignment, notice how the value of the point- 
er variable Cl is referenced—by appending an upward arrow to 
the pointer variable name. Thus, though the type of Cl is poi- 
nter to character, the type of Cl4 is character. 

Let us now see the effect of the following assignment: 


Cl4 з= C24 


If Cl and C2 are as shown in Fig. 8.4, then after the assignm- 
ent they will be as in Fig. 8.6. 


FIG. 8.6 Effect of C14 := C24 on 
C1 and C2 shown in Fig. 8.4 


The assignment 
Cl := C2 


E- has a different effect as shown 
in Fig. 8.7. As a result of the 
above assignment, the location 
containing the value 'P', prior 
= to the assignment, is no more 
- pointed to by any variable and 
М thus becomes garbage. This loc- 
_ ation cannot be used any more 
5 in the program. FIG.8.7 Effect оғ C1 := C2 
=~ Two pointer variables пау on C1 and C2 shown 


) |. point to the same value or may in Fig. 8.4, 
= have the same value. Thus, the 
condition 


С1 = c2 


is true for the situation in Fig. 8.7, but false if the situa- 
tion is as in Fig. 8.6. However, the condition 


C1* = C24 
is true for both the Figs. 8.6 and 8.7. 
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A special constant of type pointer із available іп PASCAL 
to initialize a pointer variable — properly — to point tr 
nothing. This constant is denoted as nil, We can write 


Cl := nil ; 


thereby initializing the value of Cl to nil. It should be 
evident that 


C1* := nil ; 
is illegal. 

Just as the built-in procedure new provides the capability 
to create a variable, another built-in procedure dispose can 
be used for disposing off any variable that is no more requi- 
red. Consider the following statement sequence: 


new (Cl) ; 
Т У У 
dispose (Cl) ; 


(Олай Oa HO 
(a) (b) (с) (а) 


FIG. 8.8 (а) Before new (С1), С1 is undefined 
(b) After new (C1), C1 is defined, С1% is still undefined 
(c) After Cit :x 'A', both Ci and C1* are defined 
(d) After dispose (C1), C1* is undefined 


Figure 8.8(a)-(d) illustrate the effect of execution of the 
above statement sequence. Note that after the execution of the 
dispose procedure, Cl points to nothing. Such a pointer vari- 
able, that exists without pointing to anything, is known as a 
dangling pointer. If, for example, the statement 


C24 := СІЗ 


is executed after the dispose (Cl) statement, the value of C24 
gets undefined. 


Scope of Pointers 


iable has been declared, it remains in exis- 
he execution of the program. This is unlike 
other variables which do not exist after the execution of the 
block (or procedure) within which they are declared. Thus, to 
conserve storage space, the programmer must use—-dispose—when~ 
ever the variables, pointed to by a pointer variable, have been 


used and are no more required. 


Once a pointer var 
tence throughout t 


те 


y 
d 
, 
ч 
т 

Ж 


d 
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Use of pointer variables therefore requires caution on 
the part of a programmer. This is more so when one uses a 
PASCAL compiler which does not detect even simple program- 
ming errors in the use of pointers. For example, referencing 
a pointer variable, which has the value nil, is an undefined 
operation in PASCAL. However, not all PASCAL compilers will 
report such an attempt as an error. 


8.3 CREATING STRUCTURES WITH POINTERS е 


‘Till now we have learnt how pointer variables can be defined 
and the primitive operations that can be performed on them. 
Using pointers, one can create and manipulate a wealth of 
data structures — to suit an application. In this section, we 
Shall illustrate, by examples, how some of the commonly enco- 
untered structures can be built up and manipulated using 
pointers. 


Linear List 


À linear list is a sequence of elements such that each element 
of the list points to the next — or the successor — element in 
the list. The linear list has two unique elements — one which 

is not pointed at by any element, and the other which does not 
point to any element. These two elements are called, respecti- 
vely, the head and the tail of the list. Figure 8.9 shows such 
a structure. «№ 


Os ii ЕЕЕ 


list header list tail 


FIG. 8.9 А linear list with three elements. Note 
that each element has two components a 
value and a pointer to the next element 


From Fig. 8.9 it should be obvious that each element of 
the list is a record of the general form 


listelement = record 
value : ... 5 
pointer : listpointer 
end ; 


X arit 
LY. 
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The value field can be of any type and the pointer field 
is a pointer to another list element. The pointer variable 
that points to the complete list itself, can be declared as 


listpointer = tlistelement 
Thus, a list can be defined as 


type 


listpointer = +listelement ; 


listelement = record 
value 2... ; 
pointer : lístpointer 
end 
war 
list : listpointer 


A reference like 
listt+ 


gives a listelement. Another reference 
list^. value 


points to the value field of the list element pointed to by 
list. 

In the above type declaration, notice that the identifier 
listelement is used before it is defined. This is permitted 
in PASCAL only when the identifier is preceded by the + symbol. 
As a more concrete example, consider a list of flats in an es- 
tate owned by a housing cooperative society. We can define it 


as follows: 


type 
flatpointer = 4flat ;- 


flat = record 
flatnumber : 1 .. 1000 ; 
status : (empty, occupied) ; 
rent : 600 .. 3000 ; 
type: 1.. ^ i 
nextflat : flatpointer 
end ; (* of flat definition *) 
var 
~ estate : flatpointer ; 
A sample estate with three flats is shown in Fig. 8.10. 
We can use the following statement sequence to print the ele- 


ments of this list. 


FIG. 8.10 А sample list of flats 


var next : flatpointer ; | 
begin 
next := estate ; 
while next +. nextflat # nil do 
begin 5 d 
write (next+.flatnumber) ; 
if next^.status = empty then write ('empty') " 
- else write ('occupied'); 
ا‎ ы. — write (next4.rent) ; 
write (next+.type) ; 
nexi := nextt.nextflat - 
end ; (* of while loop *) 


end 
— ^e 
-А simple loop given below can be used to reach the end о 
Det. f 
| next := estate ; 

while nextt.nextflat # nil do next := next+.nextflat; 


this loop terminates, next points to the last element of 
estate list, 


Б E. We can add an element to a linear list by first traversing 
_ it till the end and then making the last element point to the 
j new element. The pointer field of the new element can be set 

"1 making it the new last element. The following statement 
Sequence performs this task. 


next :* estate ; 
while nextt.nextflat ў nil do next := next*,. nextflat ; 


new (newflat) ; next+.nextflat := newflat $ 
. newflat£. nextflat := nil ; 


_ Here, newflat is also of type flatpointer. Note that the indi- 
vidual fields of the new element аге not defined by the above 
_ Statements, This can be done by assigning data to individual 
| fields of newflat. 

- . When several elements are to be added to a list successively 
the list need not be traversed till the end for each addition. 


ктүү жал, ін ді кд Жанама сан 
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A pointer can be maintained that always points to the current 
last element. А11 additions can be relative to this pointer 
which is updated after each addition. 


Binary Tree 


A tree is one of the commonly-used data structures for repre- 
senting data that has a hierarchical relationship amongst its 
elements. Figure 8.11 shows a sample tree consisting of ten 


nodes (circled elements) and nine links (the line connecting 


two nodes). Each node is labelled, in our example, with inte- 
gers. 


root node 


FIG. 8.11 А tree with nodes labelled by integers 


A distinguishing characteristic of the tree in Fig. 8.11 
is that each node has at most two links emanating from it. 
is called a binary tree. 
Ee o precisely one node in a tree which is not poin- 
ted at by any other node. This node is known as the root of 
the tree. There are several other nodes ín the tree which do 
not point to апу other nodes. Such nodes are known as the 


leaves of the tree. 
The two links emana 
link and the right link. 


ting from a node are called the left 
Using the notion of pointers in 
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PASCAL, it is easy to define a type that reflects the tree 
structure. Here is a sample definition: 


type 
treepointer = {tree ; 
tree = record 
node. t vos 
leftlink : treepointer ; 
rightlink : treepointer 
end ; (* of tree definition *) 


Ме can now declare variables tl and t2 as 


var 
à tl, t2 : treepointer ; 


^" According to the above definition, which is recursive, a tree 
consists of a node pointing to a left subtree and a right 
subtree, The left and right subtrees of the root node in 

Fig. 8.11, for example, are shown in Figs. 8.12 (a) and (b) 

. respectively. з - p 


(a) (5) 


FIG. 8.12 Left (a) and right (b) subtrees of the root node of 
the tree in Fig. 8.11. Each of these subtrees has a 
root, and left апа right subtrees 


Р If, for example, tl denotes the tree of Fig. 8.11, we сап 
| Write a procedure to print all the nodes of the tree so that 

_ the output is an ascending sequence. To do so, we observe that 
all the nodes belonging to the left subtree of any node are 
labelled with integers smaller іп value than that labelling 
the node itself. Similarly, all the nodes belonging to the 
right subtree of any node are labelled with integers greater 


Te A v 
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in value than the one labelling the node itself. This obser- 
vation leads us to a three-step recursive procedure for 
traversing a tree so that its nodes are printed in ascending 
order: 
l. print all nodes belonging to the left subtree of the 
root, 
2. print the root node, and 
3. print all subtrees belonging to the right subtree 
of the root. 
This algorithm can be coded in PASCAL as in (7). 


procedure traversetree (t : treepointer) ; 


begin 
if t # nil then 


begin 
traversetree ( t+.leftlink) ; 


(7) writeln ( t^.node) ; 
traversetree (t^.rightlink) 
end 
end ; (* of traversetree *) 


Calling the above procedure as 
treversetree (tl) ; 


will produce the following output (assuming that tl is as in 
Fig. 8.11): 

50 

100 

180 

200 

250 

300 

350 

400 

600 

700 

There are several other orders in which a tree can be tra- 
versed. The order embodied in the procedure given above is 
known as inorder tree traversal. Exercises at the end of thís 
chapter introduce a few other traversal orders. 


Searching a Binary Tree 


required to search for a given value in a binary 
4545 ы pose that че have a binary tree іп 
her, the nodes in 
h node corresponds to a word. Furt 4 
М > ordered such that all words in the left subtree 
ecede the word at the root (dictionary order is 


of a node precede 


Often, 
tree. As an example, sup 
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assumed here), and all words belonging to the right subtree 
follow that at the root. Figure 8.13 shows one such tree. 


Note that if the tree in 
Fig. 8.13 1s traversed in acc- 
ordance with the algorithm pres- 
ented earlier, the output would 
be a sequence of words in dict- 
ionary order as 


are 
arrays 
as 
characters 
- of 
stored 
texts 
usually 


> 
A 
М 
4 
Е 
= 
4 


Given а word, denoted by, 
say W, we can search for it 
using the following sequence 
of steps: < 


1. If W is the same as 
the root, the search 
15 successful, 


2. If W precedes the word 
at the root, search 
for it in the left 
subtree. In case the 
left subtree does not 
exist, the search is 
unsuccessful, 


3, If М follows the word 


characters 


E 2 at the root, search for FIG. 8.13 A sample binary tree 
it in the right subtree. with words labelling 
2 In case right subtree different nodes 
ic does not exist, the 


search is unsuccessful. 


The above sequence of steps can be coded into PASCAL as 
a recursive procedure as in (8). It takes a word W and a 
~ tree Т as inputs, and returns a pointer P as output. P either 
points to that node of T which is the same as W, or it is nil 
indicating that W does not belong to T. Here, T is assumed to 
be declared as given in (8). 
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type 
spelling = packed array [1 .. 201 of char ; 
wordpointer = 4wordnote : 
wordnode = record 
word : spelling ; 
precedingword : wordpointer ; 
followingword : wordpointer 
(8) end ; 
уас 


T : wordpointer ; 
procedure searchtree (w : spelling ; Т : wordpointer ; 
А var P : wordprinter) ; 


begin 
JE T = nil then P := nil 
else 
if W < Tt. word then searchtree (T+.precedingword) 
else searchtree (Tt. succeedingword) P := Т; 


end ; (* of searchtree *) 


Notice the similarity between the search in a binary tree 
and the binary search algorithm that was programmed іп 
Chapter 6. In both cases, the number of comparisons is propor- 
tional to NlogoN, N being the number of elements in an array 
or nodes in a binary tree. However, this is true only for a 
binary tree that is balanced — implying that almost every node 
of the tree (except for a leaf) has a left and a right nonempty 
tree having equal number of nodes. 


Construction of a Binary Tree 


We have learnt till now how to traverse and search in a binary 
tree. Obviously, it is possible to perform these operations 
only after a binary tree is available. Assuming that the input 
data can be ordered, we can represent it in the form of а bin- 
ary tree to facilitate, for example, prínting in ascending 
order. 

A minor modification of procedure searchtree, described ear- 
lier, can be used to construct a bínary tree, The modified 
procedure is first invoked with an empty tree and the first 
data value as input (which may be a word, an integer or any 
other constant). The procedure creates a node, of appropriate 
type, and makes it the root of the tree. 

In subsequent calls, the procedure first searches for the 
input data in the tree. If the search is successful, the tree 
remains unchanged. Otherwise, a new node is created for the 
input data, and is linked to an appropriate node in the tree. 
The place where the new node should appear, is known when the 


search ends. 
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For example, suppose that the input word is—packed—and 
the tree into which it is to be inserted is as shown in 
Fig. 8.13. The search begins from the root node labelled 
texts. As the word packed precedes the word texts, the search 
is now carried out in the left subtree. The next comparison 
is with the word — аге. Ав the word packed follows the word 
are, the search now continues in the right subtree. 

Progressing this way, the last comparison, after which the 
tree is exhausted (search fails), is with the word of. As the 
word packed follows the word of, a new node is created, labe- 
lled with packed and made the right subtree of the word of. 
The new tree so obtained is shown in Fig. 8.14. 


| packed 


FIG. 8.14 Tree obtained after adding 
the word - packed - to the 
tree shown in Fig. 8.13 
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We can now write a PASCAL procedure to construct à binary 
tree. Procedure addtotree is shown іп (9). It uses the algo- 
rithm in (8) for searching in a tree before adding an element 
to it. Various types used in this procedure are as declared 
in (8). It is assumed that when the procedure іп (9) is first 
invoked, the tree to be constructed has been initialized with 
the first input word. Thus, the tree will initially consist 
of a root node with no left or right subtrees. 

Procedure create used іп (10), creates a new node of type 
wordpointer and links it to the proper node of the tree. 


procedure addtotree (W : spelling ; T : wordpointer) ; 


xar 
begin 
if w # Tt . word 
then 
if w € T +. word 
then 
if T + .preceding word = nil tnen 
(9) create ( м, T + . precedingword) 
else addtotree (w, T + . precedingword) 


if Tt. followingword = nil then create 
(w, T4.followingword) 
else addtotree (И, Т + . followingword) ; 


end ; (* of addtree *) 


procedure create ( W : spelling ; T : wordpointer ) ; 
var 
newnode : wordpointer ; 


begin 
new (newnode) ; T := newnode ; 
with newnode * do 
begin 
(10) word := W ; 
precedingword := ni 
followingword := nil 
end 
end ; (% of create %) 


he concepts presented in this 


The next example uses t 
ly encountered problem in text 


section to program a common 
processing applications. 


Example 8.3 


A text of characters is given. Words in the text are separated 
by the characters space, comma or period. Between two success- 
ive words, there could be more than one space character. 
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We shall develop a program to scan the text and perform 
frequency count of words. The output of the program should be 
a list of distinct words in the text together with their num- 
ber of occurrences in the text. The words should be output in 
dictionary order. 

To perform the above stated task, our program can keep 
extracting words from the text and arrange them in a suitable 
data structure. We can declare an array of words, enough to 
hold all distinct words in the input text. However, the number 
of distinct words varies from one text to another. If too less 
Space is reserved in the array, the program will terminate 
prematurely as at some point of time there would be no space 
in the array to insert a new word. Оп the other hand, if too 
large an array is declared, it would be wasteful of memory 
space. 

It is therefore evident that a binary tree structure, 
built using pointers, is a better way to hold the partíal list 
of words while the text is being scanned. Once the text is ex- 
hausted, this tree can be traversed in the order described ear- 
lier, to print the distinct words in dictionary order. _ 

The tree denoted by the variable wordtree — can be defined 
ав іп (11): 


type 
spelling = packed array [1 V» 16 of char ; 
wordpointer = + wordnode ; , 

wordnode = record №, 

a word : spelling ; m 

4 Occurrences : integer ; 

а (11) precedingwords : wordpointer ; 

"» followingwords : wordpointer 

i end ; 


Sk CA ors 
эы таралы 3 аме 21- 


4 var 
wordtree : wordpointer ; 


А 

1 Тһе desired algorithm can now be structured as in (12); 

х Неге, it is assumed that the text consists of опе or more words 
separated by space, comma or period. Also, the word size is 
limited to 16 characters. 


begin 
get next word from the text ; 


create a new node ; 
initialize wordtree ; 
while not eof do 
(12) e begin 
get next word ; 
add it to wordtree and update its frequency 
count 


end ; 
print wordtree in dictionary order 
en 
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To code (12) into PASCAL, three procedures are required: 

е getnextword to extract the next word from the text, 

e addandupdate to add the next word to the tree and 
update its frequency count, and 

eprintwords to print wordtree in dictionary order. 

Defining a variable nextword as 


nextword : spelling ; 
and the set of break characters as 
breakchar : set of char 


initialized suitably, procedure getnextword can be coded as 
in (13). It begins by initializing nextword to spaces. Then, 
all characters till the first character of the next word, are 
skipped. In another loop, all characters of the word are ca- 
tenated to next word. 


procedure getnextword ; 


var 
nextch : char ; 1 : integer ; 
begin 
nextword :- 495 


(* skip all characters till the first character 
of the next word *) 
(13) read ( nextch ) ; 
while nextch in breakchar and not eof do read 
(nextch) ; 
(* now collect characters comprising a word *) 
тала з 
repeat 
T 24 4»; 
nextword [1] :- nextch ; 
read ( nextch ) 
until ( nextch in breakchar ) or eof ; 
end ; (* of getnextword *) 


The procedure to add the next word to the tree and update 
its occurrence count is similar to (10) and (11). The only 
addition to (10) is that when the word is found іп the tree, 
its count should be incremented by 1. If it is not found, and 
a new node is created, the count should be initialized to l. 

Printing the final table can be done using procedure 
traversetree written in (7). The only modification in (7) is 
that the writeln statement should be modified to print the 


word and its occurrence count. 
Incorporating all the procedures together into (13), we 


get the desired program as fn PO Saal 
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PROGRAM WORDFREQUENCYCOUNT CINPUT, OUTPUT); 


(* THIS PROGRAM INPUTS А TEXT OF CHARACTERS,SEPERATES THE WORDS *) 
Ce AND COUNTS THE NO OF OCCURRENCES OF EACH WORD. ж) 

(* THE WORDS ARE ARRANGED IM ALPHABETICAL ORDER AND PRINTED ж” 

‹* TOGETHER WITH FREQUENCY COUNTS *) 


CONST 
MAXHORDLEN = 16; 
ЖЫ ENDOFTEXT = ; 

; TYPE 


(ж TYPE STRING IS SAME AS PACKED ARRAY OF CHAR ж) 
Р SPELLING=STRINGE 16); 
| MORDPOINTER-^MWORDNODE; 
А WORDNODE = RECORD 
| WORD : SPELLING? OCCURRENCES : INTEGER; 
s PRECEEDINGWORDS,FOLLOWINGWORDS : WORDPOINTER 
END: (жОҒ WORDNODE*) 


- ж WORDTREE POINTS TO THE ROOT OF THE TREE OF WORDS ж) 


> ж IN THE INPUT TEXT THE WORDS ARE SEPARATED BY ONE OF A SET OF CHARACTERS *) 
ч ж BELONGING TO BREAKCHAR.ENDOFTEXT CHARACTER TERMINATES THE TEXT. ж) 
| 
чав 
4 WORDTREE : WORDPOINTER + NEXTHORD : SPELLING; Р 
BREAKCHAR : SET OF CHAR: 
FINISH: BOOLEAN; 
: PROCEDURE GETNEXTWORD; 
VAR 
E NEXTCH : CHAR; I : INTEGER: 
- БЕСІН 
NEXTHORD: =’ 


(*SKIP ALL CHARACTERS TILL THE FIRST CHARACTER OF THE NEXT WORD™*) 
READCNEXTCH) ; 
WHILE (NEXTCH ІМ BREAKCHAR) DO 
RERDCNEXTCH) ; І 
(*NOW COLLECT CHARACTERS COMPRISING A WORD*) | 
1::0; | 
REPEAT 
ASS 4,404 
NEXTWORD CIJ :- NEXTCH $ 
READ (NEXTCH) 
UNTIL (NEXTCH IN BREAKCHAR) OR (NEXTCH=ENDOFTEXT)3 
FINISH: =NEXTCH=ENDOFTEXT? 
END + (жОҒ GETNEXTWORD*) 
PROCEDURE ADDANDUPDATE ( UAR T : WORDPOINTER) i 
PROCEDURE CREATENEWNODE (VAR AT : WORDPOINTER ) ; 
< BEGIN 
[| NEWCAT? ; 
WITH AT ^ DO 


BEGIN 
WORD :- NEXTWORD + OCCURRENCES :- 1; 
PRECEEDINGHORDS := NIL ; 
FOLLOWINGWORDS := NIL 

END: 


" END + (СжОҒ CREATENEWNODE*) 

BEGIN (*ADDANDUPDATE*) 
К IF NEXTWORD = T ~.WORD i 
THEN 


Т^. OCCURRENCES: :T^. OCCURRENCES + 1 


IF NEXTHORD € T ^, WORD | 
THEN 


1 
: 
1 


түни о BÉ 


IF T^.PRECEEDINGHORD-MIL 
THEN 
CREATENEWNODE — (T^, PRECEEDINGWORD) 
ELSE ADDANDUPDATE (T^, PRECEEDINGNORD) 
ELSE Р 
IF T^.FOLLOHINGHORD:NIL THEN CREATENEWNODE (Т^. FOLLONINGHORD) 
ELSE ADDANDUPDATE (T*.FOLLOWINGWORD? ) - 
END ; (*ADDANDUPDATE*) ` 4 
PROCEDURE PRINTHORDS (T: MORDPOINTER > i 
UAR I:INTEGER:; А 3-67 
BEGIN "m. 3 
IF T^.PRECÉEDINGMORDS(ONIL THEN PRINTHORDS(T^.PRECEEDINGHORDSO ; 
FOR I::1 TO 16 DO 
MRITECT^.WORDEI1)2; 
WRITELN(T^.OCCURRENCES:6)3 . 
IF Т^. FOLLOWINGWORDS< NIL THEN PRINTWORDS (T^.FOLLOMINGHORDS) + 


END ; («OF PRINTHORDS*) 
BEGIN (*MAIN PROGRAM) =~ 
BREAKCHAR t= 0004”, 1$ 
MRITELN(C^ENTER TEXT PLEASE’): 
GETNEXTWORD ; 
NEW (HORDTREE) ; 
WORDTREE *.WORD :: NEXTHORD ; 
WORDTREE*. OCCURRENCES: =1: 
MORDTREE ^.PRECEEDINGHORDS := NIL ; 
WORDTREE ~.FOLLOWINGWORDS := NIL ? 
WHILE NOT FINISH DO 
BEGIN 
GETNEXTHORD ; 
ADDANDUPDATE (WORDTREE) ` 
END ; 
WRITELN: 
WRITELN(’LIST OF WORDS AND COUNT’); 
WRITELN; 
PRINTHORDS (WORDTREE) 
END (жоғ WORDFREQUENCYCOUNT=). 
ENTER TEXT PLEASE 
THIS PROGRAM ISOLATES WORDS FROM A TEXT AND PERFORMS 
FREQUENCY COUNT ON THEM. AT THE END, THE WORDS, TOGETHER 
WITH THEIR COUNTS, ARE PRINTED IN ALPHABETICAL ORDERS 
LIST OF WORDS AND COUNT 


А 
ALPHABETICAL 
AND ae 


END 

FREQUENCY ! 
FROM ' 
IN Ss жи AN 
ISOLATES ` : 
ON 

ORDER 

PERFORMS 

PRINTED 

PROGRAM 

TEXT 

THE 

THEIR 

THEM 

THIS 

TOGETHER 

WITH 

WORDS 


NER BREN BPP BP BR BR RR кем мою юк мою юке = 


p8.3 Program for frequency count of words in a text 


Б ы “ 
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8.4 VARIANT RECORDS 


In the chapter on data types, we learnt of the record type. 
Using records, a variety of structures can be defined and 
manipulated in PASCAL. However, the syntax of records given 
earlier, can only be used for defining structures that have 
a fixed form. Stated in PASCAL terminology, this means that 
we can define records with a fixed number of fields, each 
having a defined type. 

In many instances, it is more natural, and memory utili- 
zationwise efficient, to define records that denote structu- 
res whose form may vary during program execution. As an 
example, consider the inventory maintained by a manufacturer. 
Each item in the inventory can be defined as 


type 
item = record 
name : itemname ; 
code : itemcode ; 


(14) stock: 0 .. 9999 ; 
type : (equipment, sparepart) ; 
end ; 


The inventory can now be defined as 


var 


inventory : array [1 vs 500] of item ; 


Here, each element of the inventory is a structure wit 
fields. Thus, the size and form of each element is fix 
so of the variable—inventory). ч 
Depending on whether the item is ап equipment or a sp 
part, the manufacturer may like to tailor the information kept 
on each item.For example, if the item is an equipment, addit- 
ional information like recommended spare parts for this equi- 
pment, possible voltage levels for which it works and warranty 
period may be kept. In case the item is a spare, then in addi- 
tion to its name, code and stock, information may be kept on 
1 dealers for the spare part, equipment in which it is used, and 
50 оп. 
The above requirement implies that the type item defined 
in (14) has to be modified. Noting that the information carried 


; for an item depends on its kind, we сап redefine type item as 
/ іп (45); 
| type 


itemkind = (equipment, sparepart) ; 
item = record 
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name : itemname 
code : itemcode 
stock: 0 .. 9999 ; 
case tobesoldas : itemkind of 
(15) equipment : (spares : sparelist ; 
voltage : voltset ; 
warranty : 3 .. ) ; 
sparepart : (dealers : dealerlist ; 
usedin : equipmentlist) 


(* of item definition *) 


Now, if ме declare a variable, вау P, to be of the type 
item, the structure of P will depend upon the value of 
tobesoldas which could be equipment or sparepart., Thus, if 


we write 


end ; 


P. tobesoldas := equipment 


then P is structured as shown in Fig. 8.15(a). 


P 


сл Ce fe) De] Gel bem 
гіс. 8.15(a) One variant of item 


On the other hand, if we write 
Р. tobesoldas := sparepart 


then P is structured as in Fig. 8.15(b). 


cede Lz Del ЕСІ 


FIG. 8.15 (b) Another variant of item 


266 Introduction to PASCAL 


Notice that the type item has two possible variants depen- 
ding on the value of the tag field tobesoldas. Both variants 
have a common portion—the fixed part of item. It is the vari- 
ant part of item which makes it a variant record. 

If the value of tobesoldas is sparepart, the fields deal- 
ers and usedin can be referred to as any other field. However, 
in that case accessing the fields of the other variant, spares, 
voltage or warranty is illegal. Not all PASCAL compilers may 
detect this error. The programmer should therefore exercise 
caution when referring to fields of the variant part of a re- 
cord. One safe way of referring to fields of P, for example, 
would be as follows: 

with P do 

begin 
name : 
code : 
СУ з= 1... 4 
case tobesoldas of 
equipment : begin 
spares <= ... 
voltage := ... 
warranty:= ... 
end ; 
sparepart : begin 
dealers :* ... ; UBediny,:*€ ... ; 


es we ж» 


end 
poate > 


end ; > 
end 1 


The complete syntax of record type is shown in Figs. 8.16 
(a) and 8.16(b). Observe, from these diagrams, that the*fixed 
part of a record, if any, precedes the variant part. The vari- 
ant part itself is specified using a tag field which is an 
identifier followed by a colon. In (15), for example, tobesoldas 
is the tag. The tag field is a variable whose type is specified 
by a type identifier — itemkind in (15). 

Each possible value of the tag specifiesa variant. А vari- 
ant itself consists of identifiers and their types. These are 
the fields of the record. For example, іп (15) if the value of 
tobesoldas is sparepart, the fields in the variant part are 
dealers and usedin of type dealerlist and equipmentlist, 
respectively. 

According to the syntax shown in Fig. 8.16, a variant can 
be empty. This is denoted by writing a set of balanced paren- 
theses in front of the tag value. As an example, consider the 
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(a) 


FIG. 8.16 Complete syntax of record type: 
(a) Syntax of record type 
(b) Syntax of field list 


following definition: 


person = record 
name 


personname ; 


: integer ; 
sex : (male, female) ; 
(16) birthday . date ; 
case status maritalstatus of 


married : (spousename : personname 


[ 

anniversary : date ) ; 
4 single : ( ) 
end ; (* of person definition *) 


IL 


чы oa i 
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In (16), 1f the status is married, two more fields are defined. 
However, for status equal to single, there is no extra field. 

All fields in a variant must be unique even though they 
may appear in different variants. Further, these fields should 
not appear in the fixed part of the record definition. Also, 
there can be only one variant part of a record. However, with- 
in a variant, there can be another variant record. Thus, 
nesting of variants is possible. 

We observe from Fig. 8.16 that it is valid to omit the tag 
field of the variant part and specify only the type. For such 
a record, the programmer assigns to and accesses fields of the 
variant part keeping track of which variant is valid at any 
point of time during program execution. 


Pointer to Variant Record 


As we saw earlier, a pointer variable points to a value of some 
type. Thus, when the procedure new is used, a variable of this 
type is created. When a pointer points to a variant record, 

the creation of a new record can also specify which variant of 
the record is desired. This can be done by using new as 


new (P, tl ) 


where P is a pointer to a variant record with only one variant, 
and the tag value for which the record is to be created is tl. 
If several tags are present, e.g. in nested variants, we may 
use B 
REVE PE CI t2, ..., tn-) 


where tl, t2, ..., tn denote values of tags in the s; 
in which the tags occur within the record declaratio 

Note that specifying the tag value in new, does mi 
assignment of this value to the tag variable. It merel 
procedure new in determining how much storage is to be alloc- 
ated. If the tag value is not specified, enough storage is allo- 
cated to accommodate any variant. 

Storage created using new, can be disposed off in a simi- 
lar manner, as for example 


dispose (p, tl) 
afspose (PI tl; t2; 7.0 Еп) 


8.5 SUMMARY 


In this chapter, we have presented sets, pointers and variants 
records. Though sets are very useful data types, the other two 
should be used with restraint as they introduce several possi- 
bilities of bugs in the program. 
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We have by now learnt of a variety of data structuríng 
mechanisms in PASCAL. Which опе to use іп a particular sit- 
uation depends on the problem at hand and the programmer's 
experience. There is no fixed set of rules that may be used 
to, decide upon suitable structures. Several examples in this 
book can serve as one set of cases from which the reader can 
learn to take such decisions. However, program readability 
and convenience of use are two recommended criteria to be 
used when deciding upon data types. 


EXERCISES 


8.1 Consider the following declarations: 


е 


mensclothes ж (shirt, pant, sweater, vest, underwear, coat, 
pyjama, kurta) 
clotheson = set of mensclothes 
var 


hiscurrentoutfit : clotheson ; 
mycurrentoutfit : clotheson ; 


(a) Which of the following values are valid for the variables 
declared above: 


[shirt .. kurta | 

[coat .. shirt, sweater] 

[pyjama .. kurta, shirt .. kurta ] 

Lsweater, vest 1 
pred (vest), shirt | 
hiscurrentoutfit, mycurrentoutfit ] 
hiscurrentoutfit + [shirt 

(b) What is the total number of distinct values that any variable 
of type clotheson can assume? 

(c) Write a program that suitably inputs the values of the two 
variables hiscurrentoutfit and mycurrentoutfit and prints out 
the names of clothes common to both. Recall that identifiers 
defined by enpmeration, e.g. shirt, cannot be input (or output) 


as constants. 


8.2 Should a dictionary be considered as: 
(1) a set of (word, meaning) pairs, 
(1i) ап arrey of (word, meaning) pairs, 
(iii) a list of (word, meaning) pairs, 


(iv) a binary tree with each node corresponding to a (word, meaning) 


pair; the left subtree consisting of Words preceding (in alph- 
abetical order) the root word and the right subtree consisting 


of words following the root word. 


К Ади гб ЫА nim A ТЕГЕ. Жаа Ж” ча 
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8.3 


8.4 


8.5 


Give your answer assuming that the task to be programmed is: 
(a) dictionary update (adding a new word and its meaning), 


(b) dictionary search (searching for the meaning of a given word), and 


(c) dictionary printout. 


Consider the following declarations 


e 
complex = record re, im : real end ; 
р = * number ; 
number = record 
n : complex ; 
next : p 
end ; 
var ra 
х, уір 


(а) What is the type of each of the following references: 


(19. 5 

(ii) x4 

(iii) x +. n 

(iv) х +. next 

(v) х Ф. n.re 

(vi) x +. next + 

(vii) x +. next + .next + 


(b) After execution of each of the following statements, exhibit 
the values associated with X and Y. 


new (x) ; 

new (y) ; 

x + nre :* 5,5% % 
ушх; ў 
у + := х А 

X^. next := у ” 


Consider the following two algorithms for traversing а tree: 
1. eprint root 
e traverse left subtree 
e traverse right subtree 
2. e traverse left subtree 
e traverse right subtree 
eprint root 
Code these algorithms into recursive PASCAL procedures. What will 
be the output if the tree shown in Fig. 8.11 is traversed using each 
of these two algorithms. 


Polynomials can be conveniently represented and manipulated using 
circular lists. Each polynomial consists of a set of terms and 
associated coefficients, Each term consists of one or more variables 
raised to some integral power. For example, the polynomial 


x7 - 8 xy? + 3 у? 


шуар ич а == єрт 


More Data Types 271 


consists of three terms x?, -8xy? and зу. The term -8xy? has -8 as 
the coefficient and x and y are raised to powers 1 and 3 respectively. 
In the circular list representation, each term can therefore be 
represented by specifying: 
e coefficient, 
e powers of each variable (О if a variable does not appear in 
a term), 
e pointer to next term. 
The last element points back to the first element thereby making 
the list circular. 
You are required to do the following: 
(a) define a type — polynomial — in PASCAL, 
(b) develop a procedure that reads a polynomial as a value of a 
variable, and 
(c) develop procedures to add and multiply two variables of type 
polynomial. 


Data about a set of employees of a company are given. For each 
employee, the following information is available: 


e name -- at most 40 characters 

e Sex — male or female 

e age — integer 

e department — at most 20 characters 

e status — single, married, divorced, widowed 
e salary — integer 


For employees with married or widowed as the status, following 
additional information is available: 

ө marriage date 

e number of children 

e divorce date 
For single status, the only additional information available is 
whether the person is independent or not. 

Define a suitable type that can be used to describe a variable, 
say, employee. Write a PASCAL program that reads the above infor- 
mation from an input device and tabulates it suitably. 


9 


FILES IN PASCAL 


Most business, many scientific and several text— processing 
© applications deal with significantly large volumes of data. 
| А notable characteristic of these data is that they remain 
active or live beyond the duration of the program (or programs), 
that operate(s) upon it. This is unlíke the data which are en- 
tered into PASCAL programs via input keyboard or cards in res- 
ponse to read or readin statement for every execution of the 
program and, perhaps, lose their identity after the program 
| is executed. 
- The large volumes of data we are referring to аге normal 
held on some auxiliary storage media like the disk or magnetic 
tape. Such data are held in so-called files on the auxiliary 
media. PASCAL provides a data type file and input/output oper- 
ations on it to take care of a variety of applications invol- 
ving voluminous data. This chapter is an introduction to fíles 
and operations on them. 


5 
Р 
\ 


9.1 SOME BASIC CONCEPTS 


A file is an organized collection of data. Each component of 
a file has a type associated with it. Thus, a file could be, 
for example, a sequence of integers, characters, or records. 


3 Figure 9.1 shows а file of employees in which each component 
т is a record of the type 
| Суре 


employee = record 
name : employeename ; 


basicsalary : 400 .. 5000; 

pfdeduction : O .. 16 ; 

designation : possibledesignations 
end ; 


A file can exist on a variety of media. The most common, 
Convenient and economic media is the magnetic disk or tape. 
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output by a program ou a display terminal or printer also 
constitute a file. 

Data can be read from a file or written onto a file. An 
input file from which data can be read strictly in а sequen- 
tial order—the first component, followed by the second, and 
so on, is known as a Sequential access file. Similarly, on a 
sequential output file, data can only be appended to the last 
component of the file, immediately following it. 

A file from which any component can be read or into which 
data can be written at any place, 15 known as a random access 
file. PASCAL permits only sequential files. However, some 
PASCAL compilers do provide the additional feature of random 
access files. 

А file which outlives the program which uses it is known 
as an external file. For example, a computer centre may main- 
tain a file of all the students in an institute. At the end 
of each academic session, a program may modify or update this 
file with the grades obtained by each student in that session. 
As another example, a business organization may maintain (on 
disk or tape) an inventory file of all the items it deals with 
frequently, programs may use this file for updating inventory 
stock or printing out list of those items which need to be re- 
plenished, 

An internal file is one which is created during the exe- 
cution of a program and destroyed when the program terminates. 
For example, if a program needs to process very large amount 


of data that cannot be held in the main memory of the computer, 


a temporary file could be created and used to hold this data. 
However, when the execution terminates, this file may be 
destroyed. 


Q M SHARMA | 1800 | 15 | ASSO. PROFESSOR 


М L SUBRAMANIAN 2500 re PROFESSOR 


FIG. 9.1 Ап employee file 
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9.2 FILES AND FILE OPERATIONS IN PASCAL 
PASCAL provides the type file that can be associated with an 


identifier. The syntax of file type is shown Im Fig. 9.2. Ihe 
example below declares two files—MASTERFILE and TRANSACTIONFILE, 


each consisting of inventory ítems. 


— r Oet H 


FIG. 9.2 Syntax of file type 


type 
item = record 
name : itemname ; 
stocklevel : 0 .. 1000; 
code : itemcode ; 
reorderpoint : min .. max 
end ; 
transaction = record 
code : itemcode ; 
quantity : minquantity * maxquantity ; 
tcode : transactioncode 


o 


B 
var 


MASTERFILE : f of item ; 
TRANSACTIONFILE : file of transaction ; 


Though a file may have several components in it ас апу” 
point of time, only one component is accessible to the program, 
i at a time. This component is denoted by using the name of the 
vs file followed by an upward arrow (+). Thus, the current record 
of the MASTERFILE is accessed as 


{ 

MASTERFILEt | 

Note that MASTERFILE4 is a variable of type item, a record as 
* 


ЛУ EE و‎ Шанин нн йына ААА ق‎ 


end 
ile 


declared above. This variable is known as a file buffer and 
acts as a window into the file. 

Two files are standard in PASCAL and denoted by the íden- 
tifiers input and output. These files can be assumed to be 


declared as 
input, output : file of char ; 
Both these are external files. Any external file that is used 


in a program, must have the corresponding identifier appear in 
the program heading. Recall that in all PASCAL programs we use 
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the identifiers input and output to indicate that the program 
will perform input from a standard file and output an another 
standard file. 

The assignment of input and output files to specifíc media 
differs from one computer to another. On a card-based batch 
Processing system, the input file may be on cards and output 
on the printer. On an interactive time-sharing system, the 
keyboard may be the input file and display unit the output file. 


Reading from a File 


Before any read operaticn сап be performed on a file, say f, 
it must be prepared for reading by executing the statement 


reset (f) ; 


This statement causes the first component of the file to be 
read and assigned to the file variable f+. Subsequent read op- 
erations from f will cause successive components to be assig- 
ned to f+. 

To read the next component of Ғ, we can use the statement 


get (Ғ); 


Components can be read from a file until there are no more of 
them. After this happens, a get operation would make eof (£) 
true. Thus, for example, it is possible to read and print all 
components of a file using the following program structure 


reset (f) ; 
while not eof (f) do 
begin 4 
print f+; 
get (f) 
end ; (* of file print loop *) 
Wher a reset or a get operation is performed, the component 
accessed must be of the type mentioned in the file declaration. 
This restriction, however, does not hold for files of charact- 
ers. 4e shall discuss such files in a later section of this 


chapter. 
The get statement can be replaced bv the normal read 


statement of PASCAL as 
read (f, x) 


where x is a variable of the same type as that of any component 
of f. We can also write 

Res Gt. о 22. xn) 
thereby causing n components to be read successively into vari- 
ables xl, x2, ..., Xn. 
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Note that the operation 

get (input) 
can be coded as 

read (input, x) 


or, abbreviated as 
read (x) 


Example 9.1 


A student file contains data about performance of students in 
a course. Each component of the file is a record defined as 


student = record 
packed array [1 .. 30] of char; 


name : 
marks : array [1 .. 4] of integer 
end ; = 


Ме shall write a program that reads individual records of 


the file and tabulates the student's performance. For each 
student, his name, marks and total marks are printed. Program 


P9.1 performs this task. 


PROGRAM TABULATEMARKS (OUTPUT, STUDENI FILE): 


TYPE 

STUDENT = RECORD 

NAME : STRINGL301; 

MARKS : ARRAY [1..43 OF INTEGER 


END; 


UAR 
STUDENTFILE : FILE OF STUDENT; 


1 I TOTAL : INTEGER; 
BEGIN 
RESET (STUDENTFILE; ^STUDENTF J 
WRITELN? 
WRITELN? NAME MARKS 
WRITELN? 
WHILE NOT EOF (STUDENTFILE) DO 
BEGIN 
WITH STUDENTFILE ^ DO 
BEGIN 

WRITE ( NAME ›; 

TOTAL := O; 

FOR I := 1 TO 4 DO 


BEGIN 
TOTAL := MARKS CI] + TOTAL; 


WRITE (MARKS [IJ :4) 
END; 
WRITELN (TOTAL : 12) 
END; 
GETCSTUDENTF ILE) 7 
END; (ЖОҒ FILE PRINTOUT LOOP*) 
END. (*OF PROGRAM*) 


TOTAL’); 


* MARKS TOTAL 
.P.MATHUR 18 19 15 35 87 
тау REDDY 19 20 20 38 97 

K.S.ARORA 17 20 19 39 95 


for reading and printing student file 
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Writing onto a File 


А file that is to be used as an output file, should be init- | 
dalized by executing the statement Ї 


темгісе (Ғ); 1 


Execution of this statement readies the file for writing at 
the beginning. Thus, the file can be considered as empty imm- 3 
ediately after the execution of a revrite on it. a 

Data can be written on a fíle by assigning ít to the bu- 
ffer variable f*, and then executing the put statement. For 3 
example, we can use the sequence E 
: 


If? 1 x ; 
put (£f) 3 
to write x into file f. As mentioned earlier, writing always 
takes place at the end of the file. For such files, eof (f) 
is always true. 
The write statement can also be used to write onto a file. M 
The statement d 


write (f, x) 


| 

is equivalent to first assigning x to ft and then executing 5 

а put. In general, one сап use : 

weite £..xl; X2, .. EE | 

to append n components to file f. Each of the хі s above must ^" 

be of the same type as of the file component given in the de- 
claration. қ 
For the standard output file, we сап use 
write ( output, x ) } 
to print the value of x on the file. However, the file name g 


can be omitted, as we have always done in programs given in 
this book. At the beginning of a program execution, the two 


statements 3 


+ 

ы reset (input) ; rewrite (output) ; ) 

are assumed to be executed—without the prograinmer using these 1 
explicitly in the program. т 
m 

Example 9.2 [ 5. 
Copying one file to another is a frequently encountered oper- Уз 
ation. Assuming that we һауе ап employee file HMPFILE to be қ 
copied into EMPFILEFOPY, program P9.2 can be used. Li 1 
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PROGRAM COPYFILE (EMPFILE,EMPFILECOPY,DUTPUT); 
VAR 
EMPFILE,EMPFILECOPY : FILE OF RECORD 
NAME : PACKED AFRAY [1..30J OF CHAR: 
CODE : 1000..9999; 
SALARY : 400..4000: 
PF : O..16 
END* 
BEGIN 
RESETCEMPFILE ғ 
WHILE NOT EOF CEMPFILE) DO 
BEGIN 
EMPFILECOPY^ :- EMPFILE*; 
PUT CEMPFILECOPY); 
GET (EMPFILE) 
END; 
END. (ЖОҒ FILE COPY PROGRAMx*) 


P9.2 Program for copying a file 
Example 9.3 


Many commercial organizations maintain an inventory of items 
on a computer. The inventory file is regularly updated so that 
it provides correct information on the actual inventory. The 
update procedure is carried out at a frequency depending on 
various criteria like rate of change of actual inventory, 
nature of items, cost of updating, etc. 

The update procedure essentially consists of taking a 
master inventory file and a transaction file as inputs and 
creating a new master file which is an update of the master 
file. Updating is done using the information provided in the 
transaction file. We shall develop a PASCAL program to carry 
out one such file update procedure. 

We assume that the master file consists of components, each 
of which is a record of the following type: 


type 
stockitem = record 

name : packed array [1 .. 301 of char 
itemcode : 1000 .. 9999 ; 
stock : 0 .. maxstock ; 
qtyonorder : 0 .. maxorder ; 
reorderlevel : 20 .. 80 

end ; (* of item definition *) 


Normally the records in a master file are arranged in .he 
order of item codes. Thus, an item with the lowest code value 
appears first in the file and the one with the highest code 
value at the end. Such a master file is said to be a file 
sorted using code as the key. Note that the sort key could also 
be the name of the ítem; however, generally ít is not. 
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The transaction file consists of records of the type 


transtype = ( receipt, delete, issue ) ; 
transitem - record 
itemcode : 1000 .. 9999 ; 
trans : transtype ; 
qty : 0 .. max 
end ; (% of transaction definition %) 


From the above definition it is obvious that we have three 
types of transactions indicated by the trans field of the re- 
cord. A receipt transaction denotes receipt of certain quan- 
tity of the item, with itemcode as the code, that was on order, 
The qty field contains the amount received. A delete transact- 
ion is provided to remove an item from the master file as іс 
is no more held in the inventory. Ап issue transaction indica- 
tes the amount of a particular item issued from the stores 
since the last update was performed. The qty field, in this 


case, contains the amount that was issued. 
One example of each possi- 


ble transaction is given in 
Fig. 9.3. It is possible to 
have more than one transaction 
| 1338 | ШЕСІН for one item in the transaction 
file. For example, since the pre- 
vious update, an item may have 
been issued from the stock and, 
also, an order received. 

We assume that che transac- 
tion file is also available in 
sorted form—sorted on the item- 

EN ECH code key. Our program should 


8999 | ime | ур? take both the master file and the 
transaction file as inputs and 
FIG. 9.3 Three different produce the following outputs: 
types of transactions 1. An updated master file 


which we shall refer to 
as the new master file, 
2. A file of those items for 
which order should be placed because the current stock 


value added to the quantity on order is below the reorder 


point, and 
3. A list of item codes of such items for which there was an 
invalid transaction. 
Keeping the above requirements in focus, we can formulate the 
algorithm as in (1). A boolean variable endofupdate is used to 
keep track of the end of update process. It is assumed that both 
the master and the transaction files have atleast one element each.. 
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begin 
reset (MASTER) ; reset (TRANSACTION) ; 
rewrite ( NEWMASTER ) ; rewrite (ORDER) ; 
endofupdate :- false ; 
while not endofupdate do 
begin 
if MASTER+. itemcode = TRANSACTION+. itemcode 
then 
process current master record 
else 
if MASTER+. itemcode < TRANSACTION. 
itemcode 


(1) then 
begin 
write current master file records 
into new master file ; 
end 

else 

process error ; 

endofupdate := eof (MASTER) or eof 


(TRANSACTION) 


end ; (* of update loop *) 
not eof (MASTER) then flush remaining master file 
records ; 
eof (TRANSACTION) then add remaining transaction 
to error list 
print error list ; fibi" 


Boe 
m [n 
з 
о 
"n 


end 


---- ® 
Each transaction must have a matching record in the ter file. 
If this is not true, it is printed out as an erroneous” transa- 
ction. 

We may now start refining further the tasks specified in (1) 
The first task at hand is that of processing a master record 
against a transaction. A procedure for doing this can be formu- 
lated as in (2). 


procedure processmaster ; 
begin 
case trans of ; 
receipt : processreceipt ; 
(2) delete : processdelete ; 
issue : processissue 
ene 
end ; (* of processing a master record *) 
The three procedures to process different transaction types 
are given in (3), (4) and (5). Note that for receípt and issue, 


, 


—— һай на 


асым Фм. 
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the next transaction is read from the file. However, the ир- 
dated master record is not yet flushed out as there may be 
more transactions matching this record. 

For a deletion, a new master record is read as the current 
one is not to be put in the new master file. 

Observation of (4) and (5) reveals that the statements for 


procedure processreceipt ; 
begin 
with MASTER, TRANSACTION do 
begin 
stock := stock + qtyreceived ; 
qtyonorder := qtyonorder - qtyreceived ; 
if (stock + qtyonorder) < reorderlevel 
‘then 
begin 
(3) ORDER+ := MASTER4 ; 
put (ORDER) 
end ; 
end ; 
get (TRANSACTION) 


end ; (* of processing a receipt *) 


procedure processdelete ; 


begin 
(4) get (MASTER) 
end ; (* of deleting a master file record *) 


procedure processissue ; 
begin 
with MASTER, TRANSACTION do 


begin 


stock := stock - qtyissued ; 
if (stock + qtyonorder) < reorderlevel 
then 


begin 
ORDER+ := MASTER+ ; 


(5) put (ORDER) 
end ; 


end; . 
get ( TRANSACTION ) 
end ; (* of issue processing *) 


determining whether an order should be placed or not, is better 


a procedure 
pp ТЕ of flushing any remaining master file records 
into the new master file can be easily coded as a loop and so 
A of printing the unprocéssed transactions. 


be the process 
Tue complete inventory update program appears in 99.3. 


FILE. AFTER PROCESSING THE TRANSCTIONS,& NEW ж» 
IS CREATED. ANY ORDERS TO ВЕ PLACED, ARE RECOREDD ж) 
жу 


4 EL MAXSTOCK 
| (HANORD d 


= 1000..9999; 
= RECORD 
CODE: ITEMCODE: 
NAME + STRINGE302; 
Үү; STOCK : 0,.MAXSTOCK; 
А А QTYONORDER : 0..MAxORDER: 
к REORDERLEUEL + 20..80 
حو‎ END: (ж ОҒ STOCKITEM DEFINITION *) 
` TRANSTYPE = «RECEIPT, DELETE, ISSUE); 
` ТЕЯНбІТЕМ = RECORD 
кй CODE : ITEMCODE; 
TRANS : TRANSTYPE; 
QTY : 0..MAXSTOCK 
END: (ж OF TRANSITEM жо 


MASTER NEWMASTER : FILE OF STOCKITEM: 
(TRANSACTION 2 FILE ОҒ TR&HSITEM; 
: ORDER : FILE OF STOCKITEM: 
| ENDOFUPDATE : BOOLEAN: 
2 NODELETED: INTEGER; 


PROCEDURE PLACEORDER; 
TRES 
i WITH MASTER^ DO 


| BEGIN 
IF (STOCK + Q@TYONORDER) € REGRDERLEVEL 
Ma à THEN 
Жаке; BEGIN 
ААА DRDER^ :: MASTER 
> و‎ PUT (ORDER? 
ШИГ... END 
uU END: 


END; (* OF PLACE ORDER ж) 

пане PROCESSRECEIPT; 
BEGIN 

` WITH MASTER^,TRANSACTION^ ра 

BEGIN 
STOCK t= STOCK + OTY} 
OTYONORDER :- OTYONORDER-OTY: 
PLACEORDER 

END: 

О GET (TRANSACTION) 

© END) (* OF PROCESSRECEIPT +) 

- PROCEDURE PROCESSISSUE: 

T 7 "BEGIN 


T PED MITH MASTER^,TRANSACTION^ DO 
و‎ BEGIN 

Ms STOCK t= STOCK-QTY! 

E. PLACEORDER 


2o END; 


GET (TRANSACTION) 
Мр; (ж Of PROCESSISSUE «) 
PROCESSDELETE: 


NODELETED: =NODELETED+1: 
MITM MASTER” DO 
. MRITECCODE : 6+ NANE: 30); 
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BEGIN 
CASE TRANS OF 
RECEIPT : PROCESSRECEIPT; 
DELETE:PROCESSDELE TE; 
ISSUE : PROCESSISSUE 
END; 
END; 
END; (ж ОҒ PROCESSMASTER ж) 
PROCEDURE FLUSHMASTER; 
BEGIN 
WHILE МОТ EOF (MASTER? DO 
BEGIN 
- NEHMASTER^ : = MASTER^:; 
PUT (NEHMASTER) ; 
GET (MASTER? 
END; 
END; (ж OF FLUSHMASTER ж) 
PROCEDURE “LUSHTRANS# 
BEGIN 
WHILE WOT EOF (TRANSACTION) DO 
BEGIN 
WRITELN (TRANSACTION^.CODE э; 
GET (TRANSACTION) 
END; 
END; (ж OF FLUSHTRANS ж) 
BEGIN (ж MAIN PROGRAM ж? 
RESET (MASTER, "MASTER; 
RESET (TRANSACTION, ’ TRANSACT’)? 
REWRITE (ORDER, ’ ORDER’) 
REWRITE (NEWMASTER, ' NEHMASTER'); 
ENDOFUPDATE := FALSE; 
NODELETED: 20; 
WRITELN 
WRITELNC(’LIST OF DELFTED ITEMS’); 
WRITELN: 
WHILE NOT ENDOFUPDATE DO 
BEGIN 
' IF MASTER^.CODE = TRANSACTION^.CODE 


THEN 
PROCESSMASTER 


ELSE 
IF MASTER^. CODES TRANSACTION^. CODE 2 


THEN 


BEGIN 
NEHMASTER^ == MASTER^; 
PUT (NEHMASTER) ; 
GET (MASTER)? 
END 
ELSE 
WRITELN (TRANSACTION. CODE); 
ENDOFUPDATE :- EOF (MASTER)? OR EOF (TRANSACTI« 
END; (ж OF UPDATE LOOP *) 
MRITELNC'NO OF ITEMS DELETED = ';NODELETEDO; 
IF NOT EOF (MASTER) 
THEN 
FLUSHMASTER? 
IF NOT EOF ( TRANSACTION) 
THEN 
FLUSHTRANS; 
WRITELN ("END OF RUN’? 
END. (* OF PROGRAM ж» 


ро,3 Program for updating ап inventory file 


9.3 TEXT FILES 


racters is accorded a special status in PASCAL 


A file of cha 
в common usage. A standard file type—text—is 


because of it 


" 
I: 
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available in PASCAL. It may be assumed to be declared as 


type 
x | text = file of char ; 


Thus, for example, we may declare the following file 
Гиесекь o 


Operations rewrite, reset, get and put are used, as des- 
cribed earlier, with text files also. The boolean function 
eof is also defined for such files. 

Recall that the two standard files in PASCAL are declared 
as 


input, output : text ; 
Text files are assumed to consist of lines of characters, 
each line being terminated by one or more special line termi- 
nation characters (generally the carriage return and line feed 
characters on a display terminal based system and card bound- 
ary оп a card based system). The line termination characters 
cannot be read, However, while reading a text file f, if such 
a character is encountered, eoln (f) becomes true and the file 
-buffer ft takes the value space (a blank). At all other times, 
eoln is false. To read a line of characters from a file f, we 
may use the following statements 
reset (f) ; % 
while not ео1п do 
begin 
write (ft) ; 
get ( ғ.) 
end ; 


For text files which are organized as a Sequence of lines, 


it makes sense to use the readln and writeln procedures, Thus, 
the statement 


readln ( f, ch ) 


reads the first character of the next line of f into ch. For 
the standard input file, the function name may be omitted. 
Similarly, the statement 


writeln (f, ch) 
terminates the current line, after appending to it ch and the 


line terminating character, For the standard output file, the 


file name may be omitted. р 
А statement "УЕ, 


readin (f) Et 
causes the current input líne to be terminated and f set to 


. blank. Any subsequent reading from f will cause characters to 
be read from the next line. 


FPE 


ж ль, ih 


p PEN EU йыш ое гін > 
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The statement 
writeln (f) 


terminates the current output line on file r by writing the 
line termination characters at the end. 

In the read от readin statements using text files, the 
input variables may be of integer or real type also. Thus, a 
statement 

кан” (Cf гі) 


where г and i are of type real and integer respectively is 
valid. It causes a sequence of characters to be read — until 
a space character is encountered — and converted to the pro- 
per type. The complete value of a variable. must be available 
on one line itself. For example, if a real constant is input 
on file f ав 


1.0Е% 


with the line ending after the + character, ап error may be 
reported. In any case, eoln (f) will be true at this point. 

Similarly, if the variable names specified in a write or 
writeln statements are of type integer or real, the sequence 
of characters comprising the value are appended to the file. 
Thus, for example, a sequence of first 100 integers can be 
written onto a text file as 


rewrite (f) ; 
for i := 1 to 100 do write (f, 1); 


However, it is illegal to use the assignment 


Е + := i 
or f ^: r 


where i and r denote integer and real variables, respectively, 


and f is a file of characters. 
When no file name is mentioned in the read, readln, write 


and writeln statements, the default input end output files are 
assumed. In such a case, these must be specified in the program 


header. 3 
The next example illustrates опе use о: text files. 


Example 9.4 


arp decrease in the cost of computers and their 
increased usability (because of their small size, light-weight- 
edness low power requirements, etc.) these devices are now 
being increasingly used for word processing tasks. A word proc- 
essor is a program that takes a text as input, together with a 
certain commands specifying how the text should be laid out, 
and produces a well formatted text based on the input commands. 


Owing to a sh 
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Words in the text are treated as indivisible units except, 
Perhaps, at line boundaries. 

We shall develop a mini word Processor that outputs the 
duput text after right-justifying it. The word processor re- 
cognizes only the following commands: 


*LL n 
.Р 


А command must appear at the beginning of a line and should 
Start with a period ('.!). However, it can appear on any line. 
No other text should appear on a command line, 

The LL n command specifies that the length of a line in 
the output text should be n characters. To make things pract- 
ical, we shall impose the restriction n > 10. A default length 
of 60 is assumed if no LL command is given. 

The P command (start Paragraph) forces the word Processor 
to begin a new Paragraph in the output. An indentation of 8 
Spaces is assumed at the beginning of a Paragraph, 

The two files can be declared as 


infile, outfile : text 3 


After initializing these files, the word Processor can execute 
the loop as given in (6). In (6), the linelength variable is 
set to 60—the default value. The loop essentially performs 
one of two operations each time it is traversed Tu» 


eprocessing a command 
"Processing an input text line » 


We can write two procedures for Performing these tasks, 


begin 
reset (infile) ; ch := infile4 3 


revrite (outfile) ; 
linelength := 60 ; charssent := 0 5 
while not eof (infile) do 


begin 
(6) if ch = ' ‚ ' then processcommand 


else processline ; 
read (infile, ch) 
end ; (* of main loop *) 
if charssent » 0 then writeln (outfile) 
end 


Procedure processcommand (7) examines the first character 
of the command to identify it. If this character (following 
the period) is an L then it collects line length, otherwise TE 
checks for a P, If the command is for starting a new paragraph, 
the current outu: ine is terminated and 8 (indenting) spaces 


» 
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written onto а new line. In case ít is not a P command, a 
command error is reported and processing of ínput text cont- 
inues, The current line on the output text is terminated. 

Procedure processline keeps reading characters from infile 
and outputs these to outfile. It keeps track of the output 


procedure processcommand ; 
begin 
read ( infile, ch ) ; 
if ch not valid 


then 
begin 
(7) writeln ("UNRECOGNIZABLE COMMAND') ; 
readin(infile) ; 
writeln (outfile) ; charssent := 0 
end 
else 
case ch of 
L' : linecommand ; 
'"P' : рата 
end ; 


end ; (* of processcommand *) 


line length. It uses the variable charssent for this purpose. 
The output line must end with a word, or, if it is not possi- 
ble to do so, with a hyphen. Thus, this procedure needs to 
keep track of word separators. We assume that words in the 
input text are separated by one or more of the following cha- 
racters 
РЬ. 

The function—separator—is used for determining whether a 
given character belongs to this set or not. 

To design processline procedure, we note that a line of 


the input text can be modelled as 
SEH OFW RS 


where S denotes zero or more separators and W denotes a word. 
Thus, as a first step, ме can formulate the procedure as in 

(8). We have а 1оор in which separators and words are output 
alternately to outfile till the end of the current input text 


line. 
procedure processline ; 
begin 
while not eoln (infile) do 
begin 
send separators to outfile ; 
(8) send next word to outfile 
end 
end ; (* of processline ж) 


‚ DSi ары; pea өзі ж-ға «З ЖМ T е 


А procedure to send separators to outfile сап be formul- 
ated as in (9). It gets successive Characters from the input 


line and outputs these to output line till a letter or end 
of line is encountered. 


procedure sendseparator $ 


begin 
while separator (ch) and not eoln (infile) do 
begin 
" (9; send (ch) ; 
1 read (infile, ch) 
bts end 


end ; (* of sendseparator %) 


A procedure to send the next word needs to be more inte- 
lligent. It must see to it that the output line terminates, 
if it does so, either with the last character of the word 


or a hyphen. The logic for doing so can be developed as in 
| 0). | 
2 if only one more character сап be sent to the output line' 
then 
begin 
read next character (nch) from input line ; 
if this is not a character of the current word 
then 
" begin 
y send ch to output line H 
3 ch := nch 
22 0) end 
í : else 
Ў begin 
| send hyphen to output line s 
Y^ writeln (outfile) ; 
Ў send ch to output line ; 
Е: ch := nch 
Ж end ; 
“te end 
n 


Using the charssent variable, we can 
_ the last output line character in (10) 
. can now be formulated as in BS 


К | procedure sendword ; 


perform the check for 
. The desired procedure 


n 
egin 
; while 


(mot separator (ch) ) and not (eoln(infile)) do 
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TE (charssent + 1) = linelength 
th 
egin 
read (infile, nch) ; 
if separator (nch) 


4 then 
begín 
P send (ch) ; 
ch :* nch 
end 
else 
(11 contd.) begin 
send (hyphen) ; 
send (ch) ; 
ch := nch 
end 
б end 
else 
begin 


send (ch) ; 
read (infile, ch) 
end ; 
end ; (* of loop *) 
Combining together the procedures developed, we get the 
final program as in 29.4, 


PROGRAM WORDPROCESSOR (OUTPUT. INF ILE» OUTF ILE»; 


CONST 
PERIOD = '."'; 
MAXLEN - 132; 
VAR 
INFILE-OUTFILE : TEXT; 
LINELENGTH : 10..MAXLEN; CHARSSENT : O..MAXLEN; 
CH : CHAR; 
PROCEDURE SEND(NEXTCHAR: CHAR) ; 
BEGIN 
, IF CHARSSENT=LINELENGTH 
Р THEN 
y BEGIN 


WRITELN(QOUTF ILE); 
MHRITECGOUTF ILE, NEXTCHAR); 
CHARSSENT:z1; 
END 
ELSE 
BEGIN 
CHARSSENT: =CHARSSENT+1: 
WRITECOUTFILE, NEXTCHAR) 
END s 2 
END; (ж DF ROUTINE TO SEND A CHAR TO OUTPUT FILE ж) 
PROCEDURE PROCESSCOMMAND; 
PROCEDURE LINECOMMAND; 
© VAR 
h ж LINELEN : INTEGER: 


BEGIN 
READ (INFILE,CH); 


WRITELN (^INUALID LINE LENGTH COMMAND’ 2; 


v eode TU d 
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, READ CINFILE^LINELEND; 
IF (LINELEN < 10) OR CLINELEN>MAXLEN) 
THEN ғ Nt 
WRITELN ('INUALID LINE LENGTH’) 
* ELSE s 
Л LINELENGTH :- LINELEN? 


Md END; 
22 MRITELN(OUTFILE?; CHARSSENT : 20; 
. END; (ж OF LINE COMMAND PROCESSING ж) 
| PROCEDURE PARA: 
* CONST E 
a INDENT = 8; SPACE = ' r; 
VAR IT: INTEGER: 2 
BEGIN 
WRITELN £DUTFILE); CHARSSENT := O; 
ork FOR I :- 1 TO INDENT DO 
52 SEND( SPACE); 3 
|. END; (ж ОҒ PARA COMMAND ж) 
BEGIN (ж COMMAND PROCESSING *) 
бе READ CINFILE, CHD? 
A : IF (CH¢>'L’) AND (CHC»' P^) 
үч» DUNT THEN 
e BEGIN 
WRITELN (UNRECOGNIZABLE COMMAND); 


= WRITELN (OUTFILE); CHARSSENT :- 0; 
E END 


-- 


o CASE CH OF f 
ETT 'L','l1' + LINECOMMAND; © ў ` 1 
> ^p'»'P* : PARA | 

Гы END; (ж ОҒ CASE x) 

- READ CINFILE, CH); d Y 

END; (ж OF COMMAND PROCESSOR *) 

PROCEDURE PROCESSLINE: 

FUNCTION SEPARATOR (TESTCHAR : CHAR): BOOLEAN: 

CONST | i 

E сомма = ,,; 4 

SPACE e 7 73 

t PERIOD = '.'; | 

` BEGIN ' i 

|. . SEPARATOR t= (TESTCHAR=COMMA) OR (TESTCHAR=PERIOD) OR (TESTCHAR=SPACE) 
|. ENDi(* DF CHECK FOR SEPARATOR CHARACTER ж) т 

PROCEDURE SENDSEPARATOR: 

BEGIN à 

WHILE SEPARATOR (CH) AND (NOT EOLN (INFILE)) DO 7) 

BEGIN 
SEND (CH)? 
READ (INFILE-CH) \ “ 

] END 

- END? (ж OF SENDSEPARATOR ж) | 

. PROCEDURE SENDHORD; | 
CONST — 

HYPHEN = '-"; { 

VAR | 

NCH : CHAR: | 


WHILE (NOT SEPARATOR (CH)) AND (NOT EOLNCINFILE)) DO. i 
22 BEGIN 7 
А IF (CHARSSENT + 1) = LINELENGTH 4 
My THEN 
' BEGIN 
9-5; à READ (INFILE, NCH)? 
, IF SEPARATOR (NCH) 
THEN 
à BEGIN 
>) SEND (CH)! CH i: NCH 
f END 
Še ELSE 
BEGIN 
2 


^ SEND (HYPHEN)? 
SEND (CH); CHI zNCM 


` APPEAR TOGETHER (HITHOUT ANY SPA 
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END 
END 
ELSE 
BEGIN 
SEND (CH); 
READCINFILE, CH) 
END; 


END; (ж OF SENDING 
ОИЕ a SERENO РАР TO OUTPUT FILE LOOP ж) 
BEGIN (ж ОҒ PROCESSLINE ж) 
WHILE NOT EOLN CINFILE) DO 
BEGIN 


SENDSEPARATOR: 
SEND 1170 


END; 
SEND(CCH); 
READLNCINFILE); 
END: (ж OF PROCESSING ONE INPUT TEXT LINE ж» 
BEGIN (* MAIN PROGRAM *) 
RESET (INFILE, *UNFOR'); ' 
READ (INF ILE, CH)? 
REWRITE (OUTFILE,'FORM*); LINELENGTH :- 60; 
CHARSSENT := 0; 
WHILE NOT EOF (INFILE) DO 
BEGIN 
IF CH=PERIOD 
THEN 
PROCESSCOMMAND 
ELSE 
PROCESSLINE; 
READCINF ILE, CH); 
END; (ж MAIN LOOP *) 
IF CHARSSENT > 0 
THEN 
WRITELN (QUTFILE); 
CLOSE COUTFILE, LOCK? ; 
END. (ж OF WORD PROCESSOR ж) 


.LL 60 

3- 

THIS IS А SAMPLE OUTPUT FROM THE MINI-WORDPROCESSOR. 

THIS WORD PROCESSOR IS DEFINITELY A BABY AS COMPARED TO THE ONES AVAILABLE 
,1T BEHAVES IN UNEXPECTED WAYS ON CERTAIN INPUTS. 


COMMERCIALLY. FURTHER 
you MAY PLEASE SEE EXCERCISE 9.4 FOR SOME IDEAS ON IMPROVING 


THIS WORD PROCESSOR. 


“Р 
vOU MAY NOTICE THAT ON SEUERAL LINES RIGHT BOUNDARY ALIGNMENT IS IMPROPER. 


“сан YOU FIGURE OUT WHY ? 


SSIVE WORDS THAT ARE SEPARATED PROPERLY IN THE INPUT TEXT 
СЕ SEPARATING THEM ) IN THE OUTPUT 
50 7AS AN EXERCISE,MODIFY THE PROGRAM TO TAKE CARE 


.Р 
FURTHER, TWO SUCCE 


TEXT.WHY IS THIS 
OF THESE UNDESIRED ATTRIBUTES. 


THIS 15 A SAMPLE OUTPUT FROM THE MINI-HORDPROCESSOR. 
OCESSOR IS DEFINITELY A BABY AS COMPARED TO THE 
DOS ATLAS FURTHER IT BEHAVES IN UNEXPECT- 


5 AVAILABLE COMMERCIALLY. 
eh slays ON CERTAIN INPUTS. YOU MAY PLEASE SEE EXCERCISE 9.4 - 
For SOME IDEAS ON IMPROVINGTHIS HORD PROCESSOR. ` 

you MAY NOTICE THAT ON SEVERAL LINES RIGHT BOUNDARY 


QUT WHY 7 
ENT IS IMPROPER.CAN YOU FIGURE 
ae FURTHER) TWO SUCCESSIVE HORDS THAT ARE SEPARATED PRO- 


HER (WITHOUT ANY SPACE 5- 

IN THE INPUT TEXTAPPEAR TOGET 
EFARATIMG THEM ) IN THE OUTPUTTEXT.HHY IS THIS 50 7AS AN EX- 
ERCISE MODIFY THE PROGRAM TO TAKE CAREOF THESE UNDESIRED AT- 


TRIBUTES. 
P9.4 Program for a mini word processor 


+ 


wc T "TOC 
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9.4 SUMMARY 


In this chapter, the file and text types have been introduced. 
Programs dealing with large amounts of data, or with data 

that are keyed in once but have to be manipulated several 
times, use these two types. Data files on disks or tapes can 
be manipulated conveniently in PASCAL by structuring the data 
into records and then performing 1/0 using the standard read/ 
write statements, 

However, standard PASCAL only provides sequential 1/0 on 
files. In several situations, this restriction proves to be 
inconvenient for the programmer. Several PASCAL implementations 
provide additional statements for performing random 1/0. Micro- 
soft PASCAL is one such compiler. The reader may benefit by 
examining the user manual of the compiler that he is using to 
hunt for any such features. 


EXERCISES % 


9.1 Distinguish between 
«files and records, 
. file type and record type, 
* sequential and random access, 1 
* internal and external files, gr 
» input, output and input/output files, : 
e file record and file buffer, and { 
«eof and есіп functions. E 


9.2. Why are the standard input and output files considered to consist of 
a sequence of characters even though we also input (or output) 
numbers? 


9.3 A university professor in possession of a personal computer desires 
to computerize the record of marks obtained by students in various 
tests of the course which he is teaching. Fortunately, the professor's 
personal computer boasts of an excellent PASCAL compiler. Being short 
of time, the professor desires someone to write the necessary program 
for him (in PASCAL, because he is a strong supporter and proponent of 
this language). 

Specifically, the following programs are to be developed. 

1. A program, named INITIALIZE, that reads in the following data from 
the input device (a keyboard in the professor's computer, but 
could be a card reader от some other) and stores it in a file 
named STUDENT: 
eStudent's identification number (9 characters) 
eStudent's name (at most 40 characters) 


9.4 
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2. A program named LOADDATA to load the marks obtained by students 
in one of the several tests/quizes conducted by the professor. 
This program should first get the test/quiz number as input and 
then prompt the assistant entering data with each student's id- 
entification and name. 

The marks obtained by this student are then entered by the 
assistant. After all the data have been entered, these аге st- 
ored in the file (i.e. STUDENT file is updated). If requested, 
the complete file is printed out for the professor to (perhaps) 
display it on the notice board. 

3. A program named STATISTICS which when executed would read data 
from the STUDENT file and produce the following outputs: 

«Complete list of students, their identification and names, 
marks obtained by each student and the total 

eAverage of totals of all students 

eA histogram depicting how many students have secured a total 
of i( 0 < i < 100 ) marks. 

If desired, the program should append a suitable letter 
grade (one of A, B, C, D or F) to each student based on the 
cut-off points input to it. For example, one set of cut-off 
points could be specified as 


80 65 46 33 


implying that all the students who have secured 80 or more marks, 
get an A grade; all those in the range 65 to 79 get a B grade, 
and so on. 
Remember, you have to write 3 PASCAL programs, not procedures. 
All the programs operate upon the data in the STUDENT file. Begin 
by choosing a suitable record structure for individual student 
records in the file. Assume that there will not be more than 10 
examinations in one semester. 
While writing the LOADDATA program, keep in mind the fact that 
PASCAL files are sequential. Therefore, updating a file requires 
creation of another file. 
Design readable layout formats for the output produced by each 
program. 
The word processor presented in this chapter has ample scope for modi- 
fication. If one really desires to sell it, it is better not to make 
any attempt before making many of the modifications mentioned below 
(a better idea would be to write your own word processor incorporating 
the features mentioned below). с 
(а) When a word cannot be accommodated on a line, it should be trans- 
ferred to the next line. If only n character spaces are available 
on the current line, n spaces must be spread uniformly between the 
words on the current line to right justify the line. 
(b) The following additional commands can be implemented ) 
«Тіп — temporary indent of n spaces in the following line. 
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* INn — indention of n spaces (left margin) for the complete 
text. If a TI command is encountered, the indention 
specified overrides, temporarily, the one specified 
by any previous command. 

+ PPn — specifies the beginning of a paragraph. Apart from the 
normal left margin indention, an additional n spaces 
are provided on the immediately following line as it is 
the beginning of a Paragraph. 

* IG — all text following this command is output without any 
formating. The effect of IG command Pemains valid till 
any other command is encountered. 

* PGn — specifies that the page size is n lines. After out- 
putting n lines, a form feed control character (FF) is 
output so that the printer on which the file will be 
output ultimately can skip to the beginning of a new 
page. 

^ * СЕ — the text which immediately follows this command is 
: centred and then output. 


9.5 A progressive bank desires to computerize its current account record- 
keeping. The current account of each person provides the following 
information. 

1. account number, 

‚ 2. name of the account holder, and 

3. information about withdrawals and deposits. a 
2%: The information about withdrawals and deposits consists of; 
СҚ 1. date оп which the transaction was performed, 
2. particulars (e.g. deposit from salary, withdrawal to self). 
This could be a 40-character field, and 
3. amount involved in the transaction. 
А sample sequence of transactions could be as shown below: 


t tincid 


р е DATE PARTICULARS WITHDRAWAL DEPOSITS BALANCES 
1.9.81 TO SELF 1400,00 - 3165.85 
15,9.81 BY CHEQUE - 2000.00 5165.85 
1.10.81 BY SALARY - 1347,15 6513,00 


You are required to write the following programs: 

1. INITIALIZE — To load data about the names and account numbers of 
different account holders, Here, assume that for each 
person at most 30 previous transactions will be Stored 
in the file. This Program will read initial data from 
the input device and create a file CURRENT ACCOUNT. 

2. LOADDATA -- This program is to load daily transactions for the 
account holders. The program should prompt the person 
entering data with the account number and name. Any 
transactions are then input and stored in the file. 

3. PRINTACCNT — This program displays the complete account file ог can 
be used to display the accounts of selected persons. 

You are required to write the above three programs in PASCAL. Recall : 
that as only sequential file I/O is possible in PASCAL, an additional | 
new file needs to be created. 


10 


THE GOTO STATEMENT 


10.1 SYNTAX AND USE OF THE GOTO STATEMENT 


We have learnt of several statements in PASCAL that affect the 
sequence of execution of a program. The if, while, repeat, 

case, for, procedure and function calls are all statements that 
affect the sequence of execution. One common characteristic of 
all these statements (other than procedure or function call) is 
that they provide conditional execution of a statement sequence. 


A loop, for example, can be executed while a condition remains 85 
true. vt 

There atise instances when one needs to instruct the compu- қ 
ter to terminate a sequence of computations and force the exe- e. 


cution from some other point in a program. Ав ап example to 111- 
ustrate this, consider a loop that is constructed to read input 
data and process them. If at any point of time the input data 

is invalid, the loop should be abruptly terminated and an error 
message printed. This feature can be built into a PASCAL progr- 
am using a goto statement as shown in (1). 


while condition do 


begin d 
ы E. 
read input data ; ой 

if input data not valid then goto 107; р, 


м ? 1 76 
end ; (* of loop *) LM 


10: writeln ('INPUT DATA ERRONEOUS') ; 
edidic of program *) 


The 1oop in (1) would normally execute while the condition, 
on number of input values, is true. However, when the input 


say 
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data is invalid, the goto statement forces the execution to 
resume from the statement labelled 10. Ас 10 we have the st- 
atement to print an error message. 

As another example, consider a loop to search for an ele- 
ment x in an array А, as given in (2). Here, the search loop 


begin 
or ts lI to N-do 
begin 
, UE xw Д [1] then goto 3 ; 
(2) ERO: 
writeln (x : 4, ' does not exist іп А" ) ; 
goto 5 ; 
21% writeln ( x:4,' exists іп А") 
ЗА writeln ( ' END OF SEARCH ' ) 


end 


is terminated when x becomes equal to A [i] . The execution 


this message is printed in any case (what if the goto 5 gtat- 
' ement does not exist?). 
As is evident now, the goto statement consists of the word 
goto followed by a label. Figures 10.1(а) and (b) show the sy- 
ntax of the goto statement and the label. The label 1з an un- 
signed integer. It must be between 1 and 9,999. Any PASCAL 
statement can be labelled by preceedingit with a label followed 
by a colon. 


(b) 


FIG. 10.1 (a) Syntax of GOTO statement 
(b) Syntax of label 
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Labels and Their Scope 


A label must be declared before use. А label declaration consi- 
sts of the keyword label followed by the integers to be used 
as labels. Thus, the following is a valid label declaration: 


labe? 10, 20, 3, 5 5 


If present, a label declaration must precede any other declar- 
ation in the block. The scope of a label is the block in which 
it is declared. Thus, for example, if a label is declared 
within a procedure, it cannot be used outside that procedure 
unless, of course, it is also declared outside. The program 
segment (3) illustrates this point. 


label 80 ; 


. 


procedure canterminate ( y : real ) 4: 
label 5; 


* begin 


5: x := sin (у) 


(3) goto 5 


goto 80 
end ; (% of procedure %) 


begin 
(* a goto 5 is illegal here *) 


80 : writeln (' PREMATURE PROCEDURE TERMINATION ') ; 


A label must be declared іп the block within which it lab- 
els or marks a statement. This implies that jumps into a pro- 
cedure or function are not allowed. However, the reverse 
(jumps from the procedure to a statement outside) is allowed. 

It 1s possible to jump from outside into a loop or any 
other structured statement. However, the effect of such jumps 
is not defined and therefore should be avoided. As an example, 
the constructions in (4) are illegal though a compiler may 


goto 80; 
NBN if а < b then 


m 
в со 
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how goto Statements can be 
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з 

д. 
- 


"^ r goto 90^; 


method for Sorting arrays held іп memory is quicksort 
ed by Prof. C.A.R. Hoare, The method is conceptually 
ind is much faster than the Sorting methods described 
ar 2 іп this 2998; 
^ Given ап аггау consistin 
à еа Proceeds as follows: 
^ . l. Choose a random position P in A. 
2 2. Partition А Such that all elements towords the left of 
2 P are less than or equal to A [P] апа those towards 
» the right of P are greater than А [P] , 
$2.3 Apply quicksort to the left and the right partitions. 


5 of N elements, the quicksort 


- 
1 
4 5% 
( ^n 
is м,да, 4 
= 2i Sw ъа i s 
ш? "d 
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The above definition 16 recursive. It can be easily coded 
in PASCAL as in (5). 


procedure quicksort (M,N: integer ; var A : vector ) ;. 
vati, Jo integer ; RIS 
begin 
if M < N then 
begin 
Partition ( M, N, 
(5) quicksort ( A, M, 
quicksort ( A, 1, 
end 
end ; (* of quicksort *) 


The partition procedure used in (5), finds two integers 
i and j such that the following conditions are satisfied: 


Кн ЕСІК ЕТІ EA N 
] 


2.А [] «x form<P< j 
3. А [E] =x ғогуреї 
4.A [FE] >Х fori<P<N 


where X = A [eos] ; POS being a random Position in A. 

The above conditions are merely a restatement of the fact 
that the array A is partitioned into three segments—a left 
segment, a middle segment and a right segment. Of these three, 
only the left and right segments need to be sorted (only if 
they contain more than 1 element). The two calls to quicksort 
in (5) perform precisely this task. 

With the above four conditions in view, we can write par- 
"ition as in (6). Here we have assumed that 


PCS := (М+М) div 2 
Procedure exchange is used for exchanging two integer quanti- 
ties. Combining (5) and (6), we get the final Program as shown 
in P10.1.[] 
procedure partition (M, N : integer ; var 1, j : integer) ; 


label 1,2,3 ; 
varx,POS : integer 


begin 

POS ( MN) div 2; 

x := А [POS] ; 

кН еду SAN; 

(* find smallest 1 such that x « A [1] ж) 
(6) ESE I f- 1 to N do 

Af x « А [1] then goto 2 
із Ы; 


(* find the largest j such that А [i] < x *» 
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(6) 2 : for j :- j downto M do 


i£ A [j] < x then goto 3; 
(* if proper i and j found, then exchange 
elements at these positions X) 
3 : if i < j then 
begin 
exchange ( 
RE 40524 


BIOS 


“> 
dd 
> 


exchange ( A [1], А [Pos] ) ; 
1:= 41+ ° 


POS < j then 


begin 
exchange (А [j] , a[Pos] ) 


EES w ЖЕ 
end 


end ; (* of partition *) 


PROGRAM FASTSORT (INPUT, OUTPUT); 


(* THIS PROGRAM ILLUSTRATES THE USE ОҒ GOTO STATEMENT 
(* IT SORTS AN INTEGER ARRAY USING THE QUICKSORT ж) қ 
(ж ALGORITHM DEVELOPED BY PROF.C.6.R.HOARE *› 

(ж THE NEXT COMMENT STATEMENT INFORMS THE COMPILER THAT ж) 

(ж GOTO STATEMENTS ARE ALLOWED, жу 4 
(ж 50% ж) 

(ж WITHOUT THIS SPECIAL INSTRUCTION TO THE COMPILER ») 

ik IT WOULD FLAG ANY GOTO STATEMENT AS AN ERROR. NOTE ж) 


(ж THAT ALL PASCAL COMPILERS MAY NOT BEHAVE THIS HAY жо 
CONST 


ж) 


N s 10; 
ТҮРЕ 
VECTOR = ARRAY [1..NJ OF INTEGER; 
UAR 
INPUT : VECTOR: К: INTEGER; 
PROCEDURE QUICKSORT (м,н : INTEGER? UAR А : VECTOR); 
VAR IJ: INTEGER! 
PROCEDURE PARTITION (М.М : INTEGER: VAR IOUT, JOU INTEGER); 
LABEL 1,2,3; 
VAR X, POS,I,J : INTEGER: 
PROCEDURE EXCHANGE (UAR 8,6 : INTEGER): 
INTEGER: 


% 
в: 1 
LII [ 
T 
END; (е OF EXCHANGE е) 
* BEGIN (ж PARTITION ж) 


( 
(е PARTITION THE ARRAY AROUND Ан ELEMENT АТ THE MIDDLE =») 4 
POS is (Мм) DIU 2: 
X із ^ (POS): 
£ ts MI J ts м 
бе FIND SMALLEST 1 SUCK THAT X < өгіз е) 
1 1 FOR t js 1 том DO 
" 
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IF X« өгіз 
THEN 
GOTO г; 
(ж FIND LARGEST J SUCH THAT а [J] < X x) 
2 : FOR J :- J DOHNTO M DO 3 
IF A CJI < X y 
THEN 
GOTO 3; 
(ж IF PROPER I AND 7 FOUND, THEN EXCHANGE ELEMENTS AT THESE ж) 
(ж POSITIONS ж) 
Эстер 


THEN 
BEGIN 
EXCHANGE (A [IJ]; A CJI); 
Ісі: I*1) J t= 3-1; 
GOTO 1: 
END 
ELSE 
BEGIN 
IF I « POS 
THEN 
BEGIN 
EXCHANGE (A ГІЗ, A ІРПО519; 
тга? жї 
END 
ELSE 
BEGIN 
IF POS < J 
THEN 
BEGIN 
EXCHANGE «А CPOSI+ АС72»9; 
Jaz 241 
END yt 
END; 
END; 


IOUT: =1: JOUT:-7; 
END; (ж OF PARTITION x) 


BEGIN (ж QUICKSORT *) 
(ж SORT THE INPUT ARRAY USING RECURSIVE ALGORITHM ж) 


IF MN 
THEN 

BEGIN 
PARTITION (М,М,1,070; 
GUICKSORT СМ, Ј,А); 
QUICKSORT (1, М,А?; 

END 

END; (* OF QUICKSORT *) 


BEGIN 
WRITELN(’ENTER ARRAY ELEMENTS PLEASE 79; 


FOR K := 1 TON DO 
READ (INPUT ІК20; 
QUICKSORT (1,М,ІМРЫТО; 


WRITELN? 
WRITELN (’SORTED ARRAY'2;^ 
FOR K := 1 TONDO 


WRITELN (INPUT [K1); 
END. (OF PROGRAM *) 
ENTER ARRAY ELEMENTS PLEASE 
10987654321 
SORTED ARRAY 


سر мо‏ نن < ا © لد © ا م 


о 


Р10.1 Program to sort an array (quicksort) 


аш к”. ж > Ss ew a 
- А “ж | P 
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10.2 PROGRAM STRUCTURE AND THE GOTO STATEMENT 


All PASCAL statements introduced in the earlier chapters are 
Structured. Each of these has a single entry and exit points. 
This property makes PASCAL Programs easy to understand, test 
and debug. Formulation of а Program using such statements is 
also a mentally tractable task (especially using stepwise 
refinement). 
However, the use of a goto statement destroys the single- 
entry, single-exit property of PASCAL Statements. Using goto's, 
one can introduce several exits (all legal) and several ent- 
ties (perhaps illegal) from and into a structured statement, 
thereby rendering them less readable and difficult to test. 
Programmers are therefore advised against the free use 
of the goto statement. It is always possible to program any 
Problem without the use of goto. However, in a few instances, 
the availability of goto makes things easier. In any case, a 


S novice programmer tends to misuse the goto statement—a habit 
which dies hard. 


aa 


EXERCISES 


ich of the following transfers (using the goto statement) are 
зра] in PASCAL 
(a) into a for loop, 
(b) into the then part of an if statement, 
(c) out from the then part of an if to the beginning of a 
for statement, T [ j 
(d) from a procedure body into the body of a nested procedure, 
(e) from a procedure body into the body of an enclosing procedure, and 


5. (f) from a procedure body into the body of a procedure in a parallel 
n block? 


10.2 Examine each of the following program segments and convert these to 
5 equivalent goto-less PASCAL program segments: 


(a) begin 
readln (n) ; 


i:z1,; 1: read (A BJ- J; reaa (В (317525 
5: if A [i] = s [i] then goto 10 ; 

IER. 

if i < N then goto 1; 


@iteIn (Tno element is same!) ; 
. goto 20 
10: writeln (‘elements at position', i; 4, "аге same!) 
20: end 


~ 
8 
vo 
^ 
E 


n 
> 
t 
, 


end 
goto i 
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STANDARD IDENTIFIERS, 


Standard Identificrs 
Constants 
Data types 


Files 


Reserved Words 


NOT 
PROCEDURE 
SET 
UNTIL 


Standard procedures (f denotes 


Arithmetic procedures 


Boolean functions 


Data manipulation 


1/0 and file handling 


Appendix A 


PROCEDURES AND 


RESERVED WORDS IN PASCAL 


ABS (x) 
cos(x) 
LN(x) 
SQR(x) 
EOF(f) 
ODD(x) 
снк(ұ) 
PRED(x) 
succ(x) 
СЕТ(Ғ) 
RESET(£) 
READ(£ ,x) 
READ(x) 
WRITE(f,x) 
DISPOSE(x) 


TRUE 
CHAR 


NIL 
INTEGER 
TEXT 


OUTPUT 


CASE 
DOWNTO 
FOR 

IF 
NIL 
PACKED 
REPEAT 
TYPE 
WITH 


a filename, x denotes an 


identifier) 
ARCTAN(x) 
ЕХР(х) 
SIN(x) 
SQRT(x) 
EOLN(£) 


ORD(x) 
ROUND(x) 
TRUNC(x) 
PUT(f) 
REWRITE(£) 
READLN(£ ,x) 
READLN(x) 
WRITELN(£,x) 
NEW(x) 


Appendix I 


SYNTAX CHART 


identifiers 


unsigned integer 


unsigned number 


unsigned integer 


unsigned integer 


unsigned constant 


p constant identifier бу; 
unsigned number 
un 


Wo, a 


character 
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constant 


variable 


От e 


factor 
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term 
simple type 
type identifier 
type 


simple type 


Appendix В 311 


field list 


Simple expression 


expression 


312 Аррепдіх В 


parameter list 


Appendix В 313 


Statement 


| expression eal 


procedure identifier 
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оо 


block 


type identifier 


program è 


Appendix С 


ASCII CHARACTER CODES 


DECIMAL CHAR DECIMAL CHAR DECIMAL CHAR 
000 NUL 043 + 086 у 
001 SOH O44 087 W 
002 STX 045 - 088 X 
003 ETX O46 > 089 Y 
00% EOT 047 / 090 2 
005 ENQ 0:8 0 091 с 
006 АСК 049 1 092 N 
007 BEL 050 2 093 2 
008 В5 051 3 094 alor +) 
009 ST 052 4 095 -(or +) 
010 LF 053 5 096 , 
011 ут 054 6 097 a 
012 ЕЕ 055 7 098 b 
013 CR 056 8 099 е 
014 50 057 9 100 а 
015 SI 058 : 101 e 
016 DLE 059 5 102 ғ 
017 рс1 060 < 103 g 
018 рс2 061 = 10% h 
019 Dc3 062 > 105 і 
020 DCH 063 ? 106 j 
021 NAK 06% 8 107 k 
022 SOIN 065 A 108 1 
023 РТВ 066 в” 109 т 
024 CAL 067 с 110 п 
025 БМ 068 D 111 o 
026 SUB 069 E 112 р 
027 ESCAPE 070 F 113 q 
028 FS 071 G 114 г 
029 GS 072 H 115 5 
030 RS 073 I 116 t 

(contd.) 


DEL 


access time 17 

accuracy 48 

address 1% 

addition, of binary integers 
air pollution data 200 
algorithm 68 

arithmetic expression 80 
arithmetic unit Ч 


array declaration, syntax 137 


arrays 136, 137 

arrays, operations on 142 
ACSII code 49 

assignment 82 

assignment operator 72 
assignment statement 74 
assignment statement, syntax 
auxiliary memory 19 


balanced ternary 34 

base b, excess e code 46 
base, of a number system 32 
batch processing 24 

BCD number system 59 

begin 68 

biased exponent 45 

binary addition 51 

binary coded decimal 59 
binary digit 15 

binary multiplication 58 
binary number system 32 
binary operator 62 

binary search 150, 152, 177 
binary subtraction 51 
binary to decimal conversion 


binary tree 253 


binary tree, construction 257 


binary tree search 257 
bisection method 110 
bit pattern 15 

pits 1%, 33 

block 68 


50 


74 


33 


INDEX 


bound, lower 138 
bound, upper 138 
byte 14, 17 


card punch 11 
card reader 7 
case statement 
с D C 6600 57 
character constant 64 
character representation 49 
characteristic 57 

chr function 65 

circular list 270 


104, 105 


COBOL 27 
comments 78 
compiler 28 


compound tail, syntax 78 
computer, organization 1 
conditions 93 
connectivity matrix 176 
console keyboard 10 
console typewriter 11 
constant identifier 61 
constants 61 

control information 6 
control statements 92 
control unit 5 

core memory 20 


. 
data 5 
data structures; hierarchical 161 
declarations 66 
destructive readout 19 
decimal to binary conversion 34 
dictionary 269 
dimension 162 
display unit 4, 13 
dispose 268 
div operation 62, 81 
double-babble method 33 


high level language 27 
Hoare, C.A.R. 298 
Hollerith cards 7 
Horner's factorization 229 


ІВМ 370 17, 28 

identifier 60 
identifior, syntax 69 
identifier, uniqueness 67 


` factor, syntax 81 identifiers, scope of 133, 188 
false 65 if statement 103 
Fibonacci numbers 220 indexing 136 
field 86 indicators 19 


field designator 127 infix notation 62 


. field type 127 input device 2, 7 
x 2 ` file buffer 274 insertion sort 152 
222% file, text 284 integral approximation 91 
a file type 27% job 25 
LAS files 272 keyboard 2 
| files, external 274 keywords 66, 67 
i fixed deposits 102 


` flip-flop 20 
floating point notation 42, 44 labels 297 
floating point notation, layout, of output 86 


normalized 44 lifetime, of a variable 191 
florist enquiry system 239 line printer 4, 11 
for statement 100 linear list 250 
for statement, syntax 101 linear search 148 
` formal parameters 193 list, circular 270 
formula 71 logarithm to 
FORTRAN 27 base—10 209 
forward reference 226 loop 95 
- fraction, non-terminating 44 loop body 95 
_ functions 209 loop, infinite 100 


loop termination 95 , 
low level language 27 


1D computation 115 , machine language 27 
get 275 magic square 178 
o statement 295 magnetic disk 22 


goto statenent syntax 296 magnetic tape 23 
ph plotting 12 magnitude 48 
жм plotter 12 mantissa 44 


maximum number 37 
maximum, of an array 146 
d disk 22 memory 4, 14 
adecimal number system 34, 55 memory operations 17 


merging 158 

microsecond 17 

minimum integer 41 

mod operation 62, 81 

move operation 142 

multiplication, complex 
matrices 205 

multiplication, matrix 163 

names 60 

nanosecond 17 

negative number representation 38 

new 268 

Newton's method 217 

nil 249 

nine's complement 38 

non-destructive readout 18 

number storage 36 

object program 28 

octal 34 

one's complement 38, 39 

operator, precedence 75 

ord function 65, 120 

ordinality 120 

oscillating iterations 232 

output device 4 

overflow 53 


acked array 170, 171 

packed mode 49 

paper tape reader 10 

parameters 192 

parameters, actual 193 

parameters actual, syntax 196 

parameters, formal 193 

parameters, procedures and 
functions 217 

parameters, value 198 

parameters, variable 197 

PASCAL block, syntax 78 

PASCAL program 60 

PASCAL program, syntax "97 

PL/I 27 

plotting 169 

plotting a function 112 

pointer type 257 

pointers 246 

pointers, scope of 249 


pointer, to variant record 268 


polynomial 270 E 
polynomial evaluation 229 
positional number systems 
precedence, of operators 75 
pre-defined functions 77 | 
priority, of operators 75. 
primary memory 19 z 
procedure call 186, 187 
procedure call, syntax 196 
procedure definition, syntax 195 
procedures 180, 181 f 
product testing 26 
programming language 27 
programs 5 

punch 8 

put 277 


quadratic equation 3, 76, 106 E б 
quicksort 298 mL. 


гапдоп access file 273 
random access memory 18 
range 48 
rational, type 161 
pead statement 76 
peadln statement 83 
readln, syntax 83 
real number, conversion to 
binary 42 - Soe 
real number representation 44 | 
real-time operation 26 
pecord types 128 "^ cS 
record types, syntax 127, DU E 
record, variant 264 у^. 
recursion 220, 225 
register 20, 50 
relational operator 65 | ГИ 
repeat gtatement 97 Moti 
repeat statement, syntax 98 
reserved words 67 SMS T я 
reset 274 
root finding 110 
round function 82 
rounding $82 


scalar types 118 


2320 Index 


scalar types, input-output 123 
scope 190 
Scope, of identifiers 133, 188 
scope, of labels 297 
- scope, of pointers 249 
search, binary 150, 152 
search, linear 148 
searching 147 
searching a binary tree 255 
semiconductor memory 20 
Sequential access file 273 
sequential memory 23 
series summation 109, 115 
Set operations 236, 237 
set type, syntax 235 
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Introduction to PASCAL 


Due to its simplicity and utility, the language PASCAL has gained widespread usage and į ^ 
popularity. Gradually more and more institutes and universities are introducing ог are ” 
desirous of including PASCAL in their curriculum. One handicap in the teaching апд. 
adoption of this language has been the non-availability of a low priced, simple, introductory 
text. This book meets this need and is styled keeping in view the computer environment 

in India. 


The book assumes no previous computer knowledge and the concepts are illustrated 

with over 100 examples. Numerous computer tested programs are given and exercises 

at the end of each chapter will aid the reader in testing his understanding. Apartfrom 4 

forming а dependable text for undergraduate students of enginnering, sciences and 

management, the book will also be useful to programmers and computer scientists. z 185 i 
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